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Basic + 
80 routines pour Apple* 

par Michel Martin 

144 pages - 95,00FF 

Pour "Muscler" votre Apple,créer vos 
propres jeux d'animation et maîtriser la 
technique du dessin animé. 


Techniques de programmation 
sur Apple Il* 

par René Belle 

168 pages - 95,00 FF 

Pour créer des logiciels plus puissants et 
plus structurés grâce à des astuces illus- 
trées de nombreux programmes. 






L'Apple et ses fichiers* 
par Jacques Boisgontier 

176 pages - 95,00 FF 

Les commandes du Système d'Exploitation 
Disque, les instructions du Basic Applesoft 
et des fichiers séquentiels et à accès 
direct puis leur utilisation à l'aide de 
programmes divers. 


REALISEZ VOS APPLICATIONS 






Destination aventure sur Apple* 
par Delton T. Horn 

246 pages - 140,00 FF 

Utilisez les instructions, les explications et 
les astuces de programmation de ces 4 
jeux d'aventure en Basic pour créer les 
vôtres. 





La programmation des jeux 
d'arcades* 

par Jean-Luc Fischer 

300 pages - 140,00 FF 

Pour générer sur votre Apple des effets 
spéciaux époustouflants grâce à des 
programmes en Basic et en Assembleur. 


Apple, 
experts* 
par René Descamps 

224 pages - 120,00 FF 

Pour étudier toutes les étapes logiques de 
la pensée humaine et créer un micro 
système expert en Basic. 


logique et systèmes 


* 


sur Apple Il plus, Île et Ile 


EGALEMENT CHEZ VOTRE LIBRAIRE ET EN BOUTIQUE SPECIALISEE 





C2 


** sur Apple Ilc et Ile 65C02 


Code postal... Ville 


sms paiement par chèque joint 


Apple, modems et serveurs* 
par Alain Mariatte 

224 pages - 120,00 FF 
Apprenez à vous servir d'un modem,à 
utiliser un logiciel de communication, à 
connaître les principaux réseaux et vous 
familiariser avec les outils télématiques. 








Diététique sur Apple* 


par JM Jego et JM Lichtenberger 

224 pages - 120,00 FF 

Pour calculer votre surface corporelle et & 
découvrir votre métabolisme énergétique 

grâce à votre Apple. 


EXPLOITER LE SYSTEME 
ART CET 21:18 210); 


Assembleur de l'Apple*** 

par N. Bréaud -Pouliquen 

240 pages - 120,00 FF 

Pour apprendre à obtenir rapidité d'exé- 
cution et économie de mémoire, voici une 
initiation à l'assembleur (6502 - 65C02) 
illustrée de nombreux programmes. 


ProDos sur Apple Ile et Ilc* 

par Francis Verscheure 

104 pages - 85,00 FF 

Découvrez ProDos pour gérer des cata- 
logues et des fichiers si vous voulez 
profiter de ce système performant. 

GUIDE 
Clefs pour l'Apple II** PRATIQUE 
144 pages - 105,00 FF rhre _/} 
Clefs pour l'Apple Ilc et 

lle 65C02** 

172 pages - 130,00 FF 

par N. Bréaud -Pouliquen 

Pour accéder rapidement à la syntaxe des 
commandes, aux codes caractères, aux 
codes machine. et des trucs utiles 
lorsque vous programmez. 





Les ressources de l'Apple IIc*** 
par N. Bréaud Pouliquen 

108 pages - 85,00 FF 

Pour découvrir les avantages du Ilc,utiliser 
le logiciel de base du système et pro- 
grammer astucieusement la souris. 


Rétérence 160 du service-lecteurs (page 34) 


sur Apple Il plus et Ile 
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Des atouts pour votre Apple : 











Vous avez un 
traitement de texte 
et une ImageWriter, 
alors. . 


_ P-Formai 


augmentera considérablement les po 
d'impression de votre logiciel. 
obtenir une justification dr 
totale, centrée, ou encore page ré à droite 
et impaire à gauche de façon automatique. À 
noter que la justification n'est pas perturbée. 
Se par ‘les caractères du type \é’ où ‘6’. Le. 
: style d'impression peut passer de la simple à: 
la double largeur, de gras où souligné à. 
normal, en proportionnel et au sein d'une même 
ligne sans perte de justification, P-Format ]J{ 
; c'est aussi : un mode mathématique et un mode 
se ee graphique grâce à la police programmée. 










































1[+ 
Ile 


Ile EN KIT 


Accompagné d'une cinquantaine de pages 
de documentation, Disk Manager permet 
de recréer les commandes du Dos, redéfi- 
nir l'organisation d'une disquette, grâce à 
un jeu d'instructions qui en fait un langage 
simple d'accès à la disquette. Il offre éga- 
lement un programme d'édition à l'aide de 
commandes évoluées. Quatre utilitaires 
figurent aussi sur la disquettes : Utili- 
disque (réparation du disquette détruite, 
vérification..….), Ultra-copie (pour un - 
backup très rapide), Edicat (édition du es se 
catalogue, ..) et Multi-disque. 
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@ + abonnement à la revue seule ........... 
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Envoyez ce bon et votre règlement à EDITIONS MEV - 64, rue des Chantiers - 78000 Versailles. 
Supplément avion hors CEE : 15,00 F par numéro et/ou disquette. 











Editorial 


Il n'est pas facile d'être honnête et de maintenir certains standards dans un monde où le souci 
d'intégrité est souvent pris pour de la naïveté. Comme vous avez pu le constater, Pom's est une revue 
comportant fort peu de publicité. Cela tient en bonne partie à notre refus, malgré l'insistance de 
nombreux de nos clients, de promettre des articles sur leurs produits en échange de contrats de 
publicité, un mode d'échange pudiquement baptisé “publicité rédactionnelle". 


Pom's préfère garder sa liberté d'expression, au risque de perdre certains annonceurs. Nous faisons le 
pari que les lecteurs ne se laisseront pas abuser par ces faux articles, qui pourraient les encourager à 
acheter des produits de qualité insuffisante. 


Le monde de l'Apple II, comme nous le montre bien Jean-Michel Gourévitch depuis plusieurs 
numéros, est en constante évolution. Dans combien de temps disposerons-nous d'un Apple IT aussi 
puissant que le Macintosh ? Probablement plus très longtemps ; il n'en reste pas moins que — pour des 
raisons de compatibilité avec le vieil Apple II — on n'arrivera pas tout de suite avec ce matériel à la 
qualité ergonomique du Macintosh. 


Ceci dit, ces derniers temps, le monde du Macintosh bouge encore plus vite que celui de l'Apple II, 
avec en particulier l'arrivée du MacPlus. Depuis quelques mois, le prix des extensions 512K pour le 
Mac baisse sans cesse : nous sommes passés en un an de pratiquement 12.000 F TTC à moins de 
3.000 F TTC aujourd'hui. Quand on voit le prix que coûte encore aujourd'hui l'extension à 1 Mo, le 
possesseur d'un Mac aura intérêt à faire transformer son Mac en MacPlus (extension à 1 Mo, nouvelles 
ROM, passage du lecteur intégré à 800K) plutôt que de s'offrir la seule extension mémoire. 


Autre signe des temps, après s'être longtemps enfermé dans sa politique de standard à part de 
l'industrie, Apple met en relief sa capacité à travailler en réseau avec le monde IBM. 


Nous continuons à recevoir des lettres de possesseurs d'Apple II s'inquiétant de savoir si nous n'allons 
pas abandonner progressivement celui-ci pour le Macintosh. Je pense que, depuis le temps que nous 
proposons le cahier Macintosh, ces lecteurs peuvent être rassurés : nous n'avons pas réduit la 
pagination Apple II - comme promis — et toute extension du cahier Mac se fera sous la forme d'une 


augmentation de la pagination. 


Remarque importante : nous continuons à recevoir du courrier à l'ancienne adresse, maïs celui-ci ne 
suit plus systématiquement. Pour être sûr que vos lettres nous parviennent, utilisez donc l'adresse : 
64170 rue des Chantiers - 78000 Versailles. 


Hervé Thiriez 


Photo de couverture : Macintosh Plus - Clavier AZERTY avec pavé numérique incorporé, 1 Moctets de RAM 
bientôt extensible à 4 Moctets, 128 Ko de ROM, routines QuickDraw réécrites pour plus de rapidité, lecteur de disquettes 
double face double densité 800 Ko. Prix hors TVA : Macintosh Plus : 25900 F (le Mac 512 Ko coûte désormais 
22900 F, le Mac 128 Ko est abandonné) - lecteur externe 800 Ko (pour Mac Plus ou Mac standard) : 3900 F - mise à 
niveau Mac Plus pour Mac 128 Ko : 6500 F - mise à niveau Mac Plus pour Mac 512 Ko : 4500 F. 





Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Manfred Brede, Pascal Cantot, Jean-Louis 
Chauvin, Alexandre Duback, Bruno Fénard, Bernard France, Sylvie Gallet, Jean-Michel Gourévitch, Olivier Herz, 
Bernard Hoyez, Gérard Michel, Jean-Luc Nail, Patrice Neveu, Christian Piard, Guillaume Pot, Marianne Sutz 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 
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Composition automatique 
de numéros de téléphone 


Bernard Hoyez, Jean-Luc Nail 


e plus se souvenir d'un 
numéro, ou le doigt qui 
dérape sur le clavier du 
téléphone, cela vous est 
déja arrivé, n'est-ce-pas ? La 
numérotation à huit chiffres n'a 
pas arrangé les choses. Combien 
de temps et de taxes de base cela 
vous a-t-il coûté ? Une solution à 
ce problème est de remplacer 
votre vieux téléphone à cadran par 
un superbe appareil à mémoires 
ou alors... de demander à votre 
vieil Apple de faire ce travail à 
votre place. Désormais, Roméo, 
faites apparaître le doux nom de 
Juliette sur l'écran de votre 
ordinateur favori et vous 
entendrez aussitôt la voix de votre 
chère et tendre amie. 
Le composeur automatique de 
numéro nécessite : 
- une interface entre l'Apple et la 
ligne téléphonique ; 
* un logiciel de composition de 
numéro. 


Principe de la 
composition d'un 
numéro 
téléphonique 


Un appel téléphonique se 

décompose en quatre phases : 

* la prise de ligne ; 

+ la composition du’numéro sur 
le clavier ou le cadran ; 

° l'échange audio ; 

+ le raccrochage. 

La prise de ligne s'effectue 

lorsque l'on décroche le 

combiné : un interrupteur se 

ferme et court-circuite la ligne. 


La composition de numéros 
consiste à envoyer sur la ligne une 
succession de signaux repré- 
sentant chacun un chiffre. Un 
chiffre est lui-même une 
succession d'impulsions et à 
chaque chiffre correspond un 
certain nombre d'impulsions 
élémentaires : une impulsion pour 
le chiffre 1, deux impulsions pour 
le chiffre 2, .…, 10 impulsions 
pour le chiffre 0. Une impulsion 
comporte une ouverture de ligne 
d'une durée de 66 millisecondes 
suivie d'une fermeture de ligne de 
33 millisecondes. 


Le raccrochage s'opère lorsqu'on 
repose le combiné, ce qui a pour 
effet d'ouvrir à nouveau le circuit. 
La forme du signal envoyé sur la 
ligne a l'aspect représenté dans 
l'encadré. 


| Inter chiffre 





L'interface : 
la prise de jeu ! 


Le principe en est simple, il s'agit 
de simuler un second téléphone en 
parallèle pour lequel la prise de 
ligne, la composition et le 
raccrochage seront gérés par 
l'ordinateur. Une fois la 
communication établie par ce 
“téléphone virtuel”, on reprend la 
ligne par le téléphone réel. 


Le téléphone virtuel agit comme 
un interrupteur, dont .la 
commande peut être réalisée par 
une sortie logique de l'Apple. 
Inutile de concevoir une carte 
spécialisée car ces sorties logiques 
existent sur la prise de jeu. Elles 
sont au nombre de quatre et 
appelées ANO, AN1, AN2 et 
AN3. Elles ne sont accessibles 
qu'à l'intérieur de l'Apple au 
niveau du connecteur 16 broches. 


Sur l'Apple //e , on a négligé de 
reprendre ces sorties sur le 
connecteur externe 9 broches, 
c'est dommage. Une seule sortie 
est nécessaire, nous avons choisi 
ER situé sur la broche numéro 
33. 


Temps 


Chiffre 1 


Raccrochage 
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Pour assurer une isolation parfaite 
entre l'Apple et la ligne 
téléphonique, l'interrupteur est 
celui d'un relais. Nous avons 
choisi un mini-relais 5 V de type 
CLARE PRME (ou équivalent). 
Pour commander ce relais, il faut 
amplifier le signal fourni par 

- ANO, grâce à un transistor et au 
+5 V disponible sur la broche 1 
du connecteur de jeu. 
L'ensemble des composants 
prend place sur une petite 
plate-forme enfichée dans le 
connecteur de jeu par 
l'intermédiaire d'un support de 
circuit intégré. 


Le programme 


Une partie de la mémoire de 
l'Apple est réservée aux 
entrées/sorties, notamment pour 
ce qui nous concerne aux sorties 
logiques ou "annonciateurs" de la 
prise de jeu. Pour l'annonciateur 
ANO, il s'agit des mémoires 
d'adresses $C059 et $COS8. Le 
simple fait d'écrire à ces adresses 
met respectivement la broche ANO 
à l'état 1 (3,5 V) ou à l'état O 
(0,3 V). 
Cette écriture peut se faire de deux 
manières, soit en Basic, soit en 
langage-machine : 
* en BASIC, on pourra faire un 
POKE 49241,0 (état 1) ou un 







Lu © Lo À Un Où NJ Go 
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POKE 49240,0 (état O) ; 

+ en langage d'assemblage, on 
écrira STA $C059 (état 1) ou 
STA $C058 (état O). 


Le logiciel consiste donc à gérer la 
commutation de ces deux adresses 


‘à des intervalles de temps précis et 


brefs. Lors de la composition 
d'un chiffre, entre deux 
impulsions successives, le 
passage à l'état haut dure 33 
millisecondes. Un tel laps de 
temps est trop court pour être 
maîtrisé dans un programme 
Basic, d'où la nécessité d'écrire 
en langage-machine la partie du 
programme effectuant la 
composition des chiffres. 


Le programme 
‘COMPOSEUR’ 


Ce programme fait appel à une 
routine de temporisation du 
moniteur appelée WAIT, 
implantée en $FCA8. Elle permet 
de régler précisément les durées 
des passages à l'état haut et à 
l'état bas. La temporisation, en 
microsecondes, est une fonction 
de la valeur entrée dans 
l'accumulateur : 
t=(26+27*A+5*A*A)/2 
Ainsi, pour une durée de 66 ms, 
on entrera 159 dans A avant 
d'appeler la routine WAIT. 

Le cas de la composition du 
chiffre 0 est traité à part, car il 
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1500 
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correspond à la génération de 10 
impulsions (et non de 0). 

Le code ASCII du chiffre à 
composer, stocké en mémoire 7 
par le programme Basic, est 
chargé dans l'accumulateur. Si le 
code ASCII n'est pas celui d'un 
chiffre, on passe au chiffre 
suivant en positionnant un 
drapeau en mémoire 8. Le AND 
#$0F permet la transformation du 
code ASCII en chiffre de 0 à 9. 
Le cas particulier du O est ensuite 
traité. La routine principale 
BOUCLE génére alors un nombre 
d'impulsions (PULSE) différent 
selon le chiffre stocké dans le 
registre X. 


Le programme ‘AGENDA’? 


Ce programme Basic établit la 
correspondance entre le nom d'un 
abonné et son numéro de 
téléphone, puis il effectue la 
composition de ce numéro. Le 
choix de l'abonné se fait en 
visionnant l'agenda au moyen des 
flèches gauche et droite. 

Pour ne pas compliquer le 
programme d'un gestionnaire de 
fichier, les noms d'abonnés et 
leur numéro sont intégrés à la fin 
du programme sous forme de 
DATA. Il suffira d'ajouter de 
nouvelles lignes de DATA pour 
entrer de nouveaux corres- 
pondants. Le programme place 
ces données dans le tableau T$. 
Rien ne vous empêche, si vous 
possèdez un agenda sur disquette 
dont vous connaissez la structure, 
de le récupérer dans le tableau T$. 
Comme la liste de vos 
correspondants est susceptible de 
changer très souvent, on a évité 
de remplir le tableau T$ au moyen 
d'une boucle FOR...NEXT que 
l'on aurait dû ajuster chaque fois. 
En cas de fin de DATA, la routine 
de traitement d'erreur interrompt 
le remplissage du tableau. 

Une fois le choix validé par la 
frappe sur la touche <RETURN>: 


A On effectue la prise de ligne 
(ligne 380). 

B Le code ASCII de chaque 
chiffre du numéro téléphonique 
est stocké en mémoire 7 et un 
appel à la routine ‘Composeur’ 
est fait, ceci autant de fois que 

le numéro comporte de 

chiffres. Entre chaque chiffre 
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: 30 LDA #10 
C Dès de le numér t CONTES Me 
ie cégrnotilen: (Assembleur Merlin) RE = 
composé, vous pouvez _ 
ss ES Ps USR PULSE 
décrocher le combiné télé- FRET LIIIIILILLLILL III LILILE LEE 35 DEX 
phonique. Le “téléphone 4 ass . . De SE 
virtuel” reste branché en 4" * 38 
parallèle pendant quelques CRELLLLLLLLELLLELLLLLELEEELELEES 39 ERROR = + 
21: 6 40 LDA #$FF 
secondes, le délai restant est vides # SO D 
affiché sur l'écran. 8 42 RTS 
D Le “téléphone virtuel” est alors due _ 
coupé (ligne 550), vous restez Fa HO ou 
alors seul en communication. 12 SETANO =  $C059 46 JSR WAIT 
AIG Juliette 9 13 CLRANO = $co58 47 LDA #108 
… …. 14 WAIT = $FCA8 48 STA SETANO 
15 CHIFFRE = 7 49 JSR WAIT 
16 ERREUR = 8 50 RTS 
N.D.L.R. : un tel montage n'entre oRG 5300 PRE PE 
pas dans le cadre de ce que vous 19 Récapitulation 
autorise l'administration des D COMPOSEUR 
Postes. Vous testerez ceci, bien 22 LDA CHIFFRE 
entendu, sur une installation 23 CMP #"0"-1 GOUOF AS OT CURE 0 LP CSURA 
o 4 24 BCC ERROR 0308- BO 0E 29 OF DO O2 A9 OA 
indépendante du réseau. 25 CMP #"9"#1 0310- AA 20 1D 03 CA DO FA 60 
26 BCS ERROR 0318- A9 FF 85 08 60 A9 9F 8D 
CG 27 0320- 58 CO 20 A8 FC A9 6C 8D 
28 AND ##1111 0328- 59 CO 20 A8 FC 60 
Programme 280 IF A$% = 13 THEN 360 
290 IF A$ = 21 THEN I = I +1 


AGENDA 300 IF A$ 8 THEN I = I - 1 


310 IFI>N-1THENI=N-1 
320 IF I < 1 THEN I=1 
330 VTAB 15 


10 REM ***COMPOSEUR DE NUMERO*** 


20 REM * par * 
Si Der RES FR 340 CALL - 868: PRINT T$(I,1),T$(I,2) 
40 REM * et Jean-Luc NAIL * 350 GOTO 250 


360 X$ = T$(I,2) 

370 REM **COMPOSITION DU NUMERO* 

380 POKE 49241,0: REM PRISE DE LIGNE 
390 FOR I = 1 TO 700: NEXT I 

400 HOME 


50 REM HARAAARARRARARAARARARÉ EX A 


60 REM ==>ENTRER LES NOMS ET LES NUMEROS EN D 
ATA À LA SUITE DES AUTRES 


70 REM **#X#RR#XAXAAAARRAARAAXAXX 


80 HOME 

90 ONERR GOTO 570 410 PRINT : PRINT "Je compose le numéro "; 
100 PRINT " COMPOSITION AUTOMATIQUE DE" 420 FOR I = 1 TO LEN (X$) 

110 PRINT " NUMERO TELEPHONIQUE" 430 A = ASC ( MID$ (X$,1,1)) + 128 


440 POKE 7,A 
450 CALL 768 
460 PRINT CHR$ (A); 


120 PRINT CHR$ (4);"BLOADCOMPOSEUR" 
130 DIM T$(100,2) 


140N=0 

150N=N#+1 470 FOR T = 1 TO 600: NEXT T 

160 FOR J = 1 TO 2 480 NEXT I 

170 READ TS(N,J) 490 HTAB 1: VTAB 5: PRINT “Décrochez le comb 
180 NEXT J iné, maintenant..." 


500 VTAB 8: PRINT ".....avant" 
510 FOR I = 400 TO 1 STEP -1 


190 GOTO 150 
200 VTAB (8) 


210 PRINT "Utilisez les flèches ";: INVERSE 520 VTAB (15): HTAB (11) 
: PRINT "=>";: NORMAL : PRINT "et "sr: I 530 PRINT INT (I / 50);" secondes" 
NVERSE : PRINT "<=": NORMAL 540 NEXT I 

220 PRINT "pour sélectionner le nom de l'abo 550 POKE 49240,0 
nné" 560 GOTO 580 

230 PRINT : PRINT "Validez avec la touche RE 570 IF PEEK (222) = 42 THEN 200 
TURN" 580 HOME : RESTORE 

240 I=0 590 PRINT "...Pret pour un autre appel ...": 

250 GET A$ GOTO 140 

260 A$ = ASC (A$) 600 DATA RENSEIGNEMENTS, 3612 

270 IF A$ < > 13 AND A$ < > 21 AND A$ < > 620 DATA AUTRES RENSEIGNEMENTS, 3611 
8 THEN 260 630 DATA JULIETTE, 12345678 
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Adaptation à ProDOS des 
routines en assembleur 


Alexandre Avrane 


l existe actuellement plusieurs centaines d'utilitaires 

en assembleur qui facilitent la programmation en 

Applesoft : tris, contrôle de saisie, formatage de 

nombres, etc. Malheureusement ces routines, 
conçues pour fonctionner correctement sous DOS 3.3, ont 
été assemblées à des adresses fixes et ne tournent plus dans un 
environnement ProDOS ; l'objectif de cet article est donc de 
répondre aux questions des lecteurs qui désirent conserver 
l'acquis d'une importante logithèque d'utilitaires, en les 
transposant pour un environnement ProDOS. 


Cependant, il s'agit plus de 
fournir des conseils que de 
proposer un module tout chaud et 
prêt-à-exécuter, car une telle 
conversion n'est pas une 
opération automatique qui peut 
facilement se ramener à un 
algorithme unique. N'oublions 
pas qu'il ne s'agit pas de recopier 
un fichier sous un format 
différent, mais également de le 
modifier pour qu'il soit adapté à 
son nouvel environnement. 


Certains programmes publiés par 
Pom's-serviront d'exemple et de 
référence. auto-publicité exige! 
Enfin, la démarche à appliquer 
sera volontairement détaillée car 
elle s'adresse également aux 
lecteurs qui connaissent peu 
l'assembleur ; certaines recom- 
mandations pourraient donc 
paraître superflues. 


Avant de se précipiter sur son 
clavier, il n'est pas inutile de se 
poser quelques questions sur le 
programme à adapter : 

+ est-il utile ? 

est-il adaptable ? 

où se loge-t-il ? 

comment est-il utilisé ? 
comment se protège-t-il ? 
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Le programme 
est-il utile ? 


Une routine peut être fort utile 
pour surmonter certains handicaps 
du DOS 3.3, mais se révéler en 
revanche de peu d'attrait avec 
ProDOS. 


C'est le cas des programmes 
destinés à accélérer les temps de 
chargement de fichiers ; ceux qui 
relogent le DOS sur la carte 
langage, ou tous les utilitaires 
tournant dans un environnement 
DOS 3.3 + Integer Basic. 


Idem pour le programme FRE16 
de nettoyage de la mémoire 
(Pom's 2), désormais intégré 
dans la commande FRE de 
ProDOS. 


Le programme 
est-il adaptable ? 


Une routine qui supposait comme 
principe essentiel de 
fonctionnement la présence du 
DOS 3.3 ne pourra pas être 
adaptée à ProDOS sans une 
révision générale. 


En effet, les appels du File 
Manager ou RWTS d'une part, du 
ProDOS MLI d'autre part, ont des 
structures totalement différentes. 
En pratique, l'examen du source 
du programme donne une sérieuse 
indication de sa dépendance vis à 
vis du DOS 3.3 : toute référence à 
une étiquette externe située dans la 
plage d'adresses $9600-$BDFF 
constitue normalement une forte 
présomption. 


Ainsi, le HELLO complet de 
Pom's 6 ne peut pas être adapté 
en quelques minutes à ProDOS ; 
il serait préférable de le réécrire 
complètement. De même pour les 
programmes de francisation du 
DOS (Pom's 2 et 8) : les formats 
sont différents sous ProDOS et, 
de plus, les adresses absolues des 
commandes et libellés d'erreur 
varient pour chaque version. 


Où le programme 
se loge-t-il ? 


Sous DOS 3.3, les programmes 

en assembleur pouvaient se loger 

pratiquement n'importe où ! Sous 

ProDOS, certains emplacements 

sont à éliminer, en particulier : 

- le buffer d'entrée ($200- 
$2FF), 

+ les adresses $9A00-$9CFF 
(anciennement les buffers du 
DOS 3.3), 

+ la carte langage, dans son 
intégralité. 

La seule exception concerne la 
routine d'accès à une carte 
horloge, pour laquelle un petit 
emplacement est réservé, 
moyennant l'adhésion à un 
protocole rigoureux d'interface 
avec ProDOS. 








Trois emplacements sont 
généralement classiques pour 
placer les routines : 


+ La page 3 (adresses $300- 
$3CF) est laissée disponible. 
Dans ce cas, vous n'aurez 
probablement aucun problème. 


+ En revanche, les emplacements 
situés sous les buffers du DOS 
3.3 (limite supérieure en $9600), 
ainsi que ceux situés un peu plus 
haut et pour lesquels on déplaçait 
les buffers du DOS sous la 
routine, vont nécessiter un 
déplacement du programme. 
Sinon on obtient généralement, tôt 
ou tard, le message ‘NO 
BUFFERS AVAILABLE’ de 
ProDOS. Nous verrons plus loin 
comment reloger un programme 
en assembleur. 


+ _ Enfin, le dernier emplacement 
favori - cacher la routine au sein 
d'un programme Applesoft (pour 
les détails, lire Pom's 12 page 
35) - est totalement transparent 
par rapport au système 
d'exploitation utilisé, et ne pose 
aucun problème. 


Comment le 
programme est-il 


utilisé ? 


Toute routine en assembleur est 
appelée soit directement, soit 
indirectement. 


La méthode directe consiste à 
demander son exécution par un 
CALL vers une adresse 
déterminée. Si le programme a été 
relogé, il ne faudra donc pas 
oublier d'indiquer la nouvelle 
adresse au programme appelant. 


L'autre méthode utilise indiffé- 
remment l'ampersand (&), 
l'instruction USR de l'Applesoft 
ou le Control-Y du moniteur. Ces 
vecteurs sont initialisés soit par le 
programme appelant, soit par le 
programme appelé (et relogé) ; ici 
aussi, il faudra modifier les 
valeurs d'initialisation (si possible 
en créant un chaînage car 
plusieurs routines peuvent utiliser 
le même vecteur). 





Comment le 
programme est-il 
protégé ? 


Dans l'environnement ProDOS, 
les pages d'adresses mémoire 
(blocs de 256 octets) sont 
marquées libres ou occupées. 
ProDOS utilise les pages libres 
pour s'allouer dynamiquement les 
buffers nécessaires aux accès 
disque. 


En particulier, ProDOS refusera 
de charger un programme 
assembleur vers un emplacement 
occupé et, inversement, pourrait 
l'écraser si celui-ci n'a pas 
indiqué les pages qu'il utilise. 


Le programme RAM.BITMAP de 
Guy d'HERBEMONT permet 
d'illustrer ce processus. Il affiche 
la carte des pages mémoire 
disponibles (pages $00 à $BF) en 
indiquant pour chacune si elle est 
occupée ou libre. 


Après le chargement de ProDOS 
+ Basic.System, on obtient : 


0123456789ABCDEF 


S00. PP PPPP°0: 00997 


$10 00 000000000000 0o 
$20 00 000000000000 00o0 
$30 00 000000000000 0o 
$40 00 000000000000 0oo 
$50 0 0 000000000000 00 
$60 0 © 0 0 © © © © © © © © © © 0 0 
$70 0 © O0 © © © © © © © © © © 0 0 © 


$89 °°°90000000000% 
$99 °°°00000c0pppPPP 
$SAOPPPPPPPPPPPPPPEE 
SBOPPPPPPPPPP® °°° PP 


P = protégé °=libre 


On note en particulier: 


+ Les pages O, 1 (pile du 6502), 
4 à 7 (écran texte) sont protégées 
en permanence. Un programme 
assembleur peut, cependant, les 
utiliser; en particulier les adresses 
en page zéro qui sont disponibles 
sous DOS 3.3 le restent sous 
ProDOS. 


+ La page 2 (buffer d'entrée) est 
libre car ProDOS l'utilise (il 
recopie la commande en cours 
pour en extraire les paramètres, et 
y formate également le chemin 
d'accès complet à un fichier). 


+ La page 3 est également libre ; 
si vous y placez une routine en 
assembleur, ProDOS pourra donc 
l'écraser par le chargement d'une 
autre routine. 


+ Himem ($73-74) pointe vers 
$9600. ProDOS en conclut que 
les 4 pages suivantes ($96 à $99) 
correspondent à son buffer de 
brouillon général. Ces pages ne 
doivent pas être utilisées. 


+ Les pages suivantes sont 
occupées (les pages $BA à $BD 
servent de zones de travail au 
Basic.System). 


Notez que l'on obtient le message 
"NO BUFFERS AVAILABLE" si 
on tente de charger un fichier 
directement sur une page 
protégée. Or ProDOS gère 
dynamiquement l'espace mémoire 
de l'Apple pour s'allouer des 
buffers de fichiers (à la différence 
du DOS 3.3 qui, en fonction du 
MAXFILES, se réservait 
définitivement de l'espace). 


Trouve-moi une 
place où me loger 


Observons la séquence à 
l'ouverture d'un fichier : 


+ ProDOS abaisse Himem de 
1Ko ($400 octets) et déplace les 
variables chaînes de caractères de 
l'Applesoft vers le bas (dépla- 
cement physique des chaînes et 
mise à jour de leur pointeur) ; 


+ Son buffer brouillon débute 
donc maintenant en $9200, le 
buffer du fichier ouvert est placé 
$400 octets plus haut, en $9600 
(jusqu'en $99FF). 


Cette séquence est répétée pour 
chaque nouveau fichier ouvert, 
jusqu'à concurrence de 8 fichiers, 
ce qui porte Himem à $7600. 
Pour chaque fermeture, elle 
s'exécute à nouveau mais en sens 
inverse. 
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Il n'est pas possible de placer nos 
programmes assembleur juste en 
dessous de $7600 (quelle perte de 
place!), car ceux-ci seraient 
écrasés sans pitié par les chaînes 
de caractères de l'Applesoft 
déplacées par ProDOS. 


En revanche, une solution 
beaucoup plus élégante existe : le 
placer entre ProDOS et ses 
buffers. 

Supposons que notre programme 
soit assemblé de $94A6 jusqu'en 
$95FF. En comptant en nombre 
de pages, il en occupe donc 2. Si 
nous le plaçons en $98A6, il 
occupera donc l'espace jusqu'en 
$99FF. Simultanément, abaissons 
Himem de 2 pages en $9400. 
Comme ProDOS détermine la 
position de son buffer brouillon 
en fonction de Himem, il en 
concluera que celui-ci se situe en 
$9400-$97FF. Par la suite, les 
ouvertures de fichiers pourront 
s'effectuer sans problème vers le 
bas. 


Deux problèmes restent à 
résoudre: 


* d'une part, notre programme 
ne peut pas être chargé 
directement à son adresse 
définitive car il serait alors chargé 
dans son propre buffer, ce que 
ProDOS refuse. Il faut donc 
prévoir une petite routine qui le 
charge à une adresse plus basse, 
puis le reloge. 


+ d'autre part, son chargement 
ne pourrait s'effectuer que si 
aucun autre fichier n'est ouvert, et 
les chaînes de caractères qu'aurait 
pû créer un programme Applesoft 
seront détruites. Heureusement, 
une routine publique de ProDOS 
permet - nous le verrons - de 
gérer ce point. 


Déplacement des 
programmes 


Résumons-nous : les petites 
routines en assembleur, celles qui 
se logent sur la page 3 ou se 
cachent dans un programme 
basic, ne posent pas de problèmes 
majeurs. 
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En revanche, les gros 
programmes - donc les plus 
difficiles à recréer soi-même -, qui 
se logent autour des buffers du 
DOS 3.3 devront être placés à une 
autre adresse. 


Malheureusement, quiconque a 
observé un module en assembleur 
sait que l'on ne peut pas 
inpunément les déplacer à travers 
la mémoire. Le résultat, quasi- 
assuré, est un magnifique 
plantage. Seuls, quelques 
programmes sont écrits sous une 
forme dite relogeable... mais ils 
sont bien rares car ils nécessitent 
soit des acrobaties de 
programmation pour éliminer les 
JMP, JSR et autres instructions à 
adresse fixe, soit la nécessité 
d'utiliser un assembleur précis et 
une routine spéciale de 
chargement (l'EDASM et le 
module RLOAD d'Apple par 
exemple). 


Il est donc nécessaire, dans la très 
grande majorité des cas, de 
réassembler soi-même la routine 
vers sa nouvelle adresse 
d'implantation. Comme ProDOS 
ne supporte que les allocations de 
mémoire par frontière de page, il 
faut se simplifier la vie en fixant la 
nouvelle adresse selon la 
formule : 


[nouvelle adresse] = 

$9A00 -— ([partie haute de l'adresse de 
fin] + 1 — [partie haute de 
l'adresse de début]) * $100 

+ [partie basse de l'adresse de 

début] 

Ainsi, un programme situé en 

$94A6-$9596 se loge en : 


$9A00-(595-$94+1)*$100+$A6=-$98A6 


Notons que l'on pourrait 
envisager de faire cohabiter 
simultanément plusieurs 
programmes assembleur sur des 
pages contiguës. Mais il faudrait 
alors les réassembler après leur 
chargement (puisque l'on ne peut 
connaître à l'avance leur adresse 
finale d'implantation), ce qui sort 
des limites de cet article. 


Pour réassembler notre 
programme, deux méthodes sont 
alors possible : 


1) La méthode dite “appel à 

Murphy" qui consiste, lorsque 
l'on ne dispose pas d'assembleur, 
à reloger la routine à la main. Il 
faut prendre en compte trois 
aspects : 

DEBUT JMP (VECTEURL) ; 
instruction à trois octets : 
modifier le dernier 

VECTEURL DA  ROUTINEL ; 
table d'adresse : 
modifier le ler octet 

ROUTINEL LDA #>DEBUT 5 
valeur - dépendante d'une 
adresse - à modifier 

Comme l'indique son nom, cette 

méthode, conduite sur de gros 

modules, amène à coup sûr à un 
plantage. En désespoir de cause, 
consultez la routine RELOCATE 

de Pom's 1. 


2) Plus raisonnablement, il faut 

prendre un assembleur, 
charger le fichier source, modifier 
simplement (dans la plupart des 
cas) la directive ORG qui fixe 
l'adresse de début du module 
objet, réassembler et sauver sur 
disque. Vous n'avez pas 
l'assembleur adéquat ? La plupart 
des assembleurs permettent de 
sauver les sources sous le format 
des fichiers TEXT classiques ; de 
plus Pom's a publié : 


- les équivalences de directives 
entre assembleurs (Pom's 9) ; 

- une routine de conversion Big 
Mac/Lisa 2.5 (Pom's 10). 


Routine 
d'initialisation 


Vous avez donc sauvé sur disque 
le nouveau module objet au 
format ProDOS. Il reste à réaliser 
la routine de chargement et 
d'initialisation de ce module. 
Nous avons pu déterminer plus 
haut l'algorithme à utiliser : 


1) Chargement à partir du disque 
vers la zone mémoire pointée par 
Lomem ($6D-6E) : ainsi nous 
minimisons le risque d'écraser 
des variables de l'Applesoft. 


2) Appel de la routine GETBUFR 
du Basic.System (version 1.1 et 
suivantes) avec l'accumulateur en 








la 


entrée contenant le nombre de 


. pages désirées. Si la retenue est à 


1 en sortie : il n'y a pas de place 
disponible et on arrête. Sinon, la 
place demandée a été réservée et 
Himem a été mis à jour par le 
Basic.System (en corollaire, le 


programme ne doit pas lui-même 


manipuler Himem: éliminez donc 
toute référence aux adresses $73 
et $74). 


3) Recopie du module vers sa 
destination finale. 


4) Eventuellement, mise à jour de 
la carte des pages RAM de 
ProDOS afin que le programme 
ne soit pas écrasé par 
inadvertance. 


5) Enfin, appel éventuel du 
module (si celui-ci se lance 
habituellement par BRUN). 


Qui dit algorithme, dit 
programme. Il s'appelle - bien 
sûr - DARWIN puisqu'il permet 
de s'adapter à un nouvel 
environnement. 


Et maintenant la question à cent 
sous : où va-t-on le placer? 


Il n'y a guère de choix puisque la 
plupart des emplacements 
possibles ne peuvent être 

supposés disponibles : notre 
programme d'initialisation devra 
se loger entre Lomem et Himem. 
En pratique nous allons assembler 
simultanément DARWIN et le 
programme à adapter, de manière 
à obtenir un unique module objet. 


Méthode 
d'utilisation 


Afin d'illustrer la façon d'utiliser 
DARWIN, nous allons utiliser en 
exemple un des programmes de tri 
publiés par Pom's : 

TRITABLEAU (Pom's 11, p 47). 


Un premier examen du source 
indique que ce programme n'est 
pas dépendant de l'environnement 
DOS 3.3 sous lequel il a été conçu 
à l'origine. Seule la présence de 
l'Applesoft est nécessaire. 


L'assembleur du DOS Tool Kit, 
utilisé à l'origine, ne supporte pas 
la notion de fichiers source 


TT —…—EZLZLaELELELELELELELZLZLZLZLZL_— IN 


chaînés avec laquelle un source 
peut être scindé en plusieurs 
fichiers distincts. Nous utiliserons 
en conséquence l'assembleur Big 
Mac. 


Première étape : 
source est renommé 
T.TRITABLEAU afin de pouvoir 
être lu par Big Mac. Par un 
assemblage sous la version DOS 
3.3, on remarque que le module 
occupe normalement les adresses 
$9AA6 à $9C3A. Profitons-en 
pour corriger une erreur du source 
TRITABLEAU publié dans 
Pom's : les lignes 30 et 32 
doivent être interverties. 


Deuxième étape : La ligne 28 
du source, qui contient la directive 
OBJ, doit maintenant être 
supprimée : l'adresse de début 
d'assemblage sera déterminée par 
DARWIN. C'est la seule 
modification nécessaire pour 
TRITABLEAU. Le source est à 


le fichier 


nouveau stocké sur disque sous 
forme d'un fichier TEXT. 


Troisième étape : on charge 
sous Big Mac le source 
DARWIN.S ; la dernière ligne 
doit être modifiée pour contenir le 
nom du programme à adapter, en 
l'occurence TRITABLEAU. 


Quatrième étape : placer la 
disquette contenant le fichier 
T.TRITABLEAU dans le lecteur 
courant. Demandons un 
assemblage : aussitôt, l'utilisateur 
doit indiquer la valeur des 
variables DARWIN D et 
DARWIN F et VA DEBUT ; 
DARWIN D représente l'adresse 
de début sous DOS 3.3, en 
l'occurence $9AA6. DARWIN F 
est l'adresse de fin, donc $9C3A. 
VA _DEBUT indique si l'on doit 
ou non sauter au programme 
après son chargement ; comme 
TRITABLEAU est normalement 
chargé par un BRUN sous DOS 


Programme TRITABLEAU.DEMO 


1 REM TRITABLEAU.DEMO À. Avrane 


10 D$ = CHR$ (4) 


15 PRINT DS'"BRUNTRITABLEAU,A"256 * ( PEEK (110) 
+ 5): REM laisse au moins $400 octets libre 


S 

20 TEXT : HOME : PRINT D$"PR#3" 

25 PRINT "DEMONSTRATION DE TRI RAPIDE SOUS PROD 
OS" 

30 DIM A$(20),A(20) 

35 INVERSE : PRINT "Indice- Element": NORMAL 

40 FOR I = 1 TO 20 

50 FOR J = 1 TO 12 

60 A$(I) = AS$(I) + CHR$S (65 + 25 * RND (1)) 


70 NEXT :A(I) = I 

80 GOSUB 900: NEXT 
100 
105 


er octet": NORMAL 


& T,0,A$(1),AS$(20),A(1) 
HTAB 20: VTAB 2: INVERSE : 


PRINT "Tri sur 1 


s PRINT "Tri sur d 


PRINT RIGHTS ("0" + STR$S (A(I)),2)"- "AS( 


1140. :FOR ÆZ = 1. TO.:20 
120 HTAB 20: VTAB I + 2 
140 GOSUB 900: NEXT 
200 & S,12,0,A$(1),AS$(20),A(1) 
205 HTAB 40: VTAB 2: INVERSE 
ernier octet": NORMAL 
210,2FOR; TI tæ \TTO 20 
220 HTAB 40: VTAB I + 2 
230 GOSUB 900: NEXT 
240 END 
900 
I): RETURN 
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3.3, il faut donner la valeur 1 ; et 
la valeur O0 pour un BLOAD. La 
suite de l'assemblage charge en 
overlay le source T.TRITA 
BLEAU et assemble les deux 
sources. Il ne reste plus qu'à 
sauver sur disque ce module objet 
sous le nom TRITABLEAU. 


Cinquième étape : modifier 
l'appel à TRITABLEAU du 
programme Applesoft qui 
l'utilise. Le format d'appel 
devient : 


PRINT CHR$(4) "BRUN 
TRITABLEAU, A" 256 * 
(PEEK(110) + 5) 
et charge le module dans une zone 
libre, au dessus des variables 
numériques de l'Applesoft et d'un 
buffer de $400 octets utilisé par 
GETBURFR. 


Fonctionnement de 
DARWIN 


L'essentiel a déjà été dit du 
fonctionnement de DARWIN. On 
peut cependant remarquer que 
celui-ci est écrit sous Big Mac et 
en utilise les directives KBD 
(saisie de la valeur d'une variable 


par l'utilisateur) et PUT (lecture 
d'un fichier source). Ces 
directives sont transposables sans 
difficultés pour Lisa, EDASM 
ProDOS, etc. 


La version actuelle suppose un 


appel au programme relogé afin 
de l'initialiser. Dans le cas 
contraire, il suffit de placer un 
RTS au lieu du JMP indirect final. 
DARWIN est bien entendu 
entièrement relogeable puisque 
l'on ignore son adresse 
d'implantation. Enfin, la carte des 
pages mémoire protégées n'est 
pas mise à jour : cela n'est 
nécessaire que si l'on craint une 
interaction avec d'autres 
programmes assembleur. 


A l'exécution, le message 
PROGRAM TOO LARGE est 
généré si le Basic.System utilisé 
sous ProDOS est antérieur à la 
version 1.1, s'il est impossible de 
trouver suffisamment de place en 
mémoire vive pour reloger le 
programme, ou enfin si on tente 
d'exécuter DARWIN sous DOS 
2.3. 


Un petit programme de 
démonstration montre les tris d'un 
tableau de chaînes de caractères, 


21 DARWINV2 = 
Programme DARWIN.S 22 DARWINVS - 
23 DARWINV4 = 
(Assembleur BigMac) us 


NB : Ce programme figure sur la 25 DARWINVE 


disquette d'accompagnement également 26 


sous format TEXT. Il est nommé 27 DARWIN A 


T-DARWIN 28 DARWIN L 


Fi RARE RARAA ARE RÉ EE 29 

2 * DARWIN * 30 ORG 
K | RRARHRARRRRRRRRRRRRRÉRRRÉRRRÉRÉRÉ 31 

4 32 * mm 
5 * Routine d'initialisation à ProDOS 33 

6 * d'un programme assembleur DOS 3.3 34 * =mmm==- ==== 
7 35 LDA 
8 * (C) 1985 Alexandre Avrane 36 BEQ 
9 * Modifié: 24/11/85 37 LDA 
10 * Créé: 16/11/85 38 JSR 
11 39 BCC 
12 * Ce source est assemblé en conjonction 40 DARWIN10 LDA 
13 * avec le programme à adapter ProDOS 41 JMP 
14 42 DARWIN11 = 
15 DARWIN D KBD sadr début DOS 3.3 43 

16 DARWIN F KBD 

17 VA DEBUT KBD ;saute en début de 45 

pgm après 46 * mm 
chargement ? 47 DARWIN20 JSR 

18 48 TSX 
19 * Calcul des adresses sous ProDOS 49 DEX 
20 DARWINV1 = DARWIN F/$100+1 50 CLC 


avec la clé en première ou dernière 
position de chaque chaîne. 
Reportez-vous à Pom's 11 pour 
les syntaxes d'appel à la routine. 


La disquette Pom's contient lès 


‘fichiers suivants : 


DARWIN.S 
source en format Big Mac 
T.DARWIN 
source en format TEXT pour 
conversion vers d'autres 
assembleurs 
T.TRITABLEAU 
source en format TEXT 
(appelé par l'assemblage de 
DARWIN.S) 
TRITABLEAU 
module exécutable sous 
ProDOS 
TRITABLEAU.DEMO 
programme Applesoft de 
démonstration (en 80 co- 


lonnes). 
G 


DARWIN_D/$100 
DARWINV1-DARWINV2 
$100*DARWINV2 
DARWIN_D-DARWINVA4 
DARWINV3*$100-DARWINVS 


$9A00-DARWINVE ;ad début ProDOS 
DARWIN F-DARWIN D+1 ; 1g ProDOS 


DARWIN_A-73 ;DARWIN = 72 octets 


* 1 - Recherche de la place mémoire 


$SBFFD_ IVERSION 
DARWINI10 Basic.System 1.0 
#0-DARWIN A/$100+$9B 

SBEF5 GETBUFR 

DARWINI11 

#14 PROGRAM TOO LARGE 
$BEO9 


* 


;adr fin DOS 3.3 44 * mmmmmmnnsss sms mms 
* 2 - Copie vers l'adresse d'implantation 


$EFF58 


contient un RTS 
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71 


$100,X recherch sur la pile 
#DARWIN99-DARWIN20-2 ;adresse d 
ébut routine 


adresse de fin 
#<DARWIN_L 
$3E 

$3C+1 
#>DARWIN_L 
$3E+1 
#<DARWIN_ À adresse d'arrivée 


A2 


$42 A4 

#>DARWIN À 

$42+1 

#0 

$FE2C déplace le bloc 


par MOVE 


72 * ==mmmmmmmn— 


73 * 3 - Appel du module et sortie 


74 * mmmmmmmmmmmmmmmmmmmmmmmm“—— 


75 
76 
7 
78 
79 
80 


81 
82 


83 
84 
85 
86 DARWIN99 
87 * Inclut 


88 
89 


PLA 
STA 
PLA 
STA 
DO 


$42+1 


$42 
VA _DEBUT 
($42) saute en début de 


programme... 


...ou retour à 
l'Applesoft 


* 


le source du programme à adapter 


PUT 
END 


{format TEXT) 
TRITABLEAU 


Programme T.TRITABLEAU 


(Assembleur BigMac) 
NB : Sauvegarder ce source sous format TEXT (Voir texte) 


FLAG 
IND 
ECART 


U Ni ba 


4 ECO 
5 START 
6 FIN 
7 ART1 
8 ART2 
9 CHA2 
O0 MOVE 
CSTART 
CART1 


CART2 
TECART 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 


$6 * Flag réel.entier 
$9 * Indice du tri 
S7 * Ecart entre 
articles 
$8 * Ecart indice 0 
et tri 
$19 * Pointeur ler 
élément du tri 
$1B * Pointeur dernier 
élément 
SFA *Pointeur temporaire 
$FC *Pointeur temporaire 
$FE *Pointeur temporaire 
$1E 
*Pointeur temporaire 
$EO *Pointeur ler 
élément COtableau 
$E2 * Pointeur COtableau 
$E4 * Pointeur COtableau 
$1D * Ecart ler tableau 


15 TECO EQU $E6 * Ecart élément ler 
tableau 

16 CECART EQU S$E7 * Ecart COtableau 

17 PARTIEL EQU $E8 

18 SARA EQU $9B * Pointeur du 
tableau 

19 CHRGET  EQU S$B1 

20 CHRGOT EQU $B7 

21 FRMNUM  EQU $DD67 * Evalue dans FAC 

22 CHKCOM EQU S$DEBE * Teste !,' 

23 MOVFM EQU S$EAF9 * Transfert M vers 
FAC 

24 SOUST EQU  $EBB2 * FAC - ARG 

25 GETADR EQU $E752 * Rend entier FAC 

26 PTRGET EQU S$DFE3 

27 * ORG $9AA6 indiqué à l'assemblage de DARWIN 

28 * ----—- Initialisation AMPERSAND------ 

29 LDA #<ST 

30 STA $3F7 

31 LDA #>ST 

32 STA $3F6 

33 RTS 

34 * —--—_—————— Début du programme 

F5 ST CMP #$54 NU pr 

36 BEQ TRI 

37 CMP #$53 + 1S"? 

38 BEQ SORT 

39 JMP  $DEC9 * SYNTAX ERROR 

40 SORT JSR CHRGET 

41 JSR CHKCOM 

42 JSR FRMNUM 

43 JSR GETADR 

44 DEY 

45 DEY 

46 STY PARTIEL 

47 JMP TS 

48 TRI LDA #$FF 

49 STA PARTIEL 

50 JSR CHRGET 

51 TS JSR CHKCOM 

52 JSR  FRMNUM 

53 JSR GETADR * Rend FAC entier 

54 STY IND * Indice du tri 

55 JSR CHKCOM 

56 JSR PTRGET 

57 STA START 

58 STA ART1 

59 STY START+1 

60 STY ARTI1+1 

61 JSR CHKCOM 

62 JSR PTRGET 

63 STA FIN 

64 STY FIN+1 

65 JSR CALCUL * Initialise 
pointeurs 

66 LDA ECO 

67 STA TECO 

68 LDA ECART 

69 STA TECART 

70 STX FLAG 

71 JSR CHRGOT 

72 CMP #$2C * COTABLEAU ? 

73 BNE DEBUT * Non 

74 JSR CHRGET 

FA USR PTRGET 

76 STA CSTART 

T7 STA CART1 

78 STY CSTART+1 

79 STY CARTI+1 

80 UJSR CALCUL 

81 LDA ECART 

82 STA CECART 

83 * Début du tri------ 
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84 DEBUT 
85 STA  IND * Flag d'échange 
86 SUIVANT CLC * Calcul adresse 
2ème article 
87 LDA TECART 
88 ADC ART1 
89 STA ART2 
90 LDA #0 
91 ADC ARTI+1 
92 STA ART2+1 
93 CLC * Calcul adresse 
2éme article 
94 LDA CECART 
95 ADC CARTI1 
96 STA CART2 
97 LDA #0 
98 ADC CARTI+1 
99 STA CART2+1 
100 LDA FLAG 
101 CMP #5 * Réel ? 
102 BEQ REEL * Oui 
103 TAY 
104 DEY 
105 CMP #2 * Entier ? 
106 BEQ ENTIER * QUI 
107 LDA (ART1),Y 
108 STA MOVE+1 
109 LDA (ART2),Y 
110 STA CHA2+1 
111 DEY 
112 LDA (ARTI),Y 
113 STA MOVE 
114 LDA (ART2),Y 
115 STA CHA2 
116 LDY PARTIEL 
117 COMP INY 
118 LDA (CHA2),Y 
119 CMP (MOVE), Y 
120 BCC DEPL * CHA2 < CHA 
121 BNE RIEN * CHA2 > CHAl 
122 CPY #15 * Profondeur du tri 
123 BCC COMP 
124 BCS RIEN 
125 ENTIER SEC 
126 LDA (ART2),Y 
127 SBC (ART1),Y 
128 DEY 
129 LDA (ART2),Y 
130 SBC (ARTI),Y 
131 BPL RIEN * ART2 = ou > ARTI1 
232 BMI DEPL * ART2 < ART1 
133 * --———-—- Recommence à l'article 1------ 
134 BOUCLE LDA CSTART * ler article 
135 STA CARTI 
136 LDA CSTART+1 
137 STA CARTI1+1 
138 LDA START * ler article 
139 STA ARTI1 
140 LDA START+1 
141 STA ARTI+1 
142 BNE DEBUT 
143 * ------ Article suivant------ 
144 SUITE LDA CART2 * Article suivant 
145 STA CARTI1 
146 LDA CART2+1 
147 STA CARTI1+1 
148 LDA ART2 * Article suivant 
149 STA ARTI1 
150 LDA ART2+1 
151 STA ARTI+1 
152 BNE SUIVANT 
153 * -----—- Test de fin du tri------ 
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ART2 


156 BNE SUITE 

157 LDA ART2+1 

158 CMP FIN+1 

159 BNE SUITE 

160 LDA IND 

161 BNE BOUCLE 

162 RTS 

163 * 

164 REEL LDA ART2 

165 LDY ART2+1 

166 USR MOVFM * ART2 dans FAC 

167 LDA ART1 

168 LDY ARTI1+1 

169 USR SOUST * ART2 - ARTI 

170 BPL RIEN * ART2 = ou > ART1 

171 * = Déplacement des pointeurs------ 

172 DEPL SEC * Calcul élément 0 
de ARTI1 

173 LDA ART1 

174 SBC TECO 

175 STA ARTI1 

176 LDA ARTI+1 

177 SBC #0 

178 STA ARTI+1 

179 SEC * Calcul élément 0 
de ART2 

180 LDA ART2 

181 SBC TECO 

182 STA MOVE 


Pom's vous propose 


*Dominos" 
Thierry Haurie Apple J[+, //e, lc 





Il est inutile de présenté le jeu de dominos; celui-ci bénéficie d'un 
graphisme très soigné (en couleur si vous disposez d'une carte 
"Chat Mauve") et les messages transmis par le programme sont, 

au choix, en Français, en Italien, en Allemand ou en Anglais. 


TI DOI HINOS J 


ER TL (] 


Je joue 


C2 FRE QUE EX 
« 
ee © © © 3) 






15 








16 








183 LDA ART2+1 

184 SBC #0 

185 STA MOVE+1 

186 LDY TECART 

187 DEY 

188 STA IND * Positionne flag 
189 SWAP LDA (ARTI),Y 

190 PHA 

191 LDA (MOVE),Y 

192 STA (ART1),Y * échange 2 dans 1 
193 PLA 

194 STA (MOVE),Y * échange 1 dans 2 
195 DEY 

196 BPL SWAP 

197 LDY CECART 

198 BEQ RIEN 

199 DEY 

200 SWAP1 LDA (CARTI),Y 

201 PHA 

202 LDA (CART2),Y 

203 STA (CARTI),Y * échange 2 dans 1 
204 PLA 

205 STA (CART2),Y * échange 1 dans 2 
206 DEY 

207 BPL SWAP1 

208 BMI RIEN 

209 * Sous programme recherche pointeurs 
210 CALCUL LDX #$3 

211 BIT $11 * Chaine ? 

212 BMI DIMI1 * Oui 

213 LDX #$5 

214 BIT $81 * Réel ? 
Programme 


60005 TEXT : 


RAM.BITMAP 


HOME :Y = 48984: REM 
$BF58:BITMAP 


60006 P = O0:L = 0: VTAB 9: HTAB 1: 


60007 





A$ = "0020406080A0": FOR I 
1 TO 11 STEP 2: PRINT "S" M 
IDS$ (A$,1I,2): NEXT : VTAB 1 
POKE 33,32: POKE 32,4: PRIN 
T "PAGES MEMOIRE PROTEGEES ( 
PRODOS)": PRINT “sur 192 pag 
es (48K de $00 à $BF)": PRIN 
T' 2 PRINT ASSPC( 16) "21111111 
111111110123456789ABCDEF0123 


j j 4088- E3 DF 85 
Récapitulation 1 Sp irl 
TRITABLEAU 4098- 85 1B 84 

40A0- 08 85 E6 

4000- AD FD BF FO 07 A9 03 20 408- 06 20 B7 
4008- F5 BE 90 05 A9 OE 4C 09 40B0- 20 B1 00 
4010- BE 20 58 FF BA CA 18 BD 40B8- 85 E2 84 
4018- 00 01 69 36 85 3C BD 01 40c0- 99 A5 07 
4020- 01 69 00 85 3D A5 3C 69 40C8- 09 18 A5 
4028- 95 85 3E A5 3D 69 01 85 40D0- A9 00 65 
4030- 3F A9 A6 85 42 48 A9 97 40D8- E7 65 E2 
4038- 85 43 48 AO 00 20 2C FE 40E0- E3 85 E5 
4040- 68 85 43 68 85 42 6C 42 40E8- 6B A8 88 
4048- 00 A9 Bl 8D F6 03 A9 97 40F0- FA 85 1F 
4050- 8D F7 03 60 C9 54 FO 1A 40F8- Bl FA 85 
4058- c9 53 FO 03 4C C9 DE 20 4100- A4 E8 C8 
4060- B1 00 20 BE DE 20 67 DD 4108- 5B DO 38 
4068- 20 52 E7 88 88 84 E8 4C 4110- 32 38 B1 
4070- D6 97 A9 FF 85 E8 20 B1 4118- FC F1 FA 
4078- 00 20 BE DE 20 67 DD 20 4120- £0 85 E2 
4080- 52 E7 84 09 20 BE DE 20 4128- 19 85 FA 








215 BPL DIMI * Oui 

216 LDX #$2 

217 DIM1 LDY #$4 * Dimension ? 

218 LDA (SARA),Y 

219 CMP #$1 * Une seule ? 

220 BEQ D1 * Oui 

221 LDY #$8 

222 LDA (SARA),Y * Taille lère 

dimension 

223 D1 TAY 

224 LDA #0 

225 STA ECART 

226 STA ECO 

227 STA CECART 

228 CLC * Calcul écart entre 

articles 

229 D2 TXA RAS es re F2 

230 ADC ECART 

231 STA ECART 

232 DEY 

233 BNE D2 

234 LDY IND 

235 BEQ D4 

236 CLC * écart élément 0 et 

tri 

237 D3 TXA MS ra se 

238 ADC ECO 

239 STA ECO 

240 DEY 

241 BNE D3 

242 D4 RTS 
456789ABCDEF" 

60010 FOR I = O0 TO 23:X = PEEK ( 
YŸ + I): REM LES 24 OCTETS D 
E LA BIT-MAP 

60020 FOR J = 1 TO 8: REM LES 8 B 
ITS DE CHAQUE OCTET 

60030 IF X > = 128 THEN X = 2 * 
X - 256:P = P + l: PRINT "P" 
;: GOTO 60050: REM CAS BIT=1 

60040 X=X* 2:L = L + l: PRINT " 


.";: REM CAS BIT=0 
60050 NEXT J: NEXT I: POKE 33,40: 
POKE 32,0: PRINT 
60055 PRINT "P = protégée ; au to 
tal : "P: PRINT ". = libre 
; au: total : -"L: PRINT 


85 FA 84 1A 4130- 94 A5 E4 85 E2 A5 E5 85 
DE 20 E3 DF 4138- E3 A5 FC 85 FA A5 FD 85 
20 01 99 A5 4140- FB DO 86 A5 FC C5 1B DO 
07 85 1D 86 4148- E8 A5 FD C5 1C DO E2 A5 
g9.2C D0 15 4150- 09 DO CC 60 A5 FC A4 FD 
E3 DF 85 EO 4158- 20 F9 EA A5 FA A4 FB 20 
84 E3 20 01 4160- B2 EB 10 DF 38 A5 FA ES5 
E7 A9 00 85 4168- E6 85 FA A5 FB E9 00 85 
65 FA 85 FC 4170- FB 38 A5 FC E5 E6 85 1E 
85 FD 18 A5 4178- A5 FD E9 00 85 1F A4 1D 
E4 A9 00 65 4180- 88 85 09 B1 FA 48 BI 1lE 
06 C9 05 FO 4188- 91 FA 68 91 IE 88 10 F3 
02 FO 22 B1 4190- A4 E7 FO AF 88 Bl E2 48 
FC 85 FF 88 4198- Bl E4 91 E2 68 91 E4 88 
B1l FC 85 FE 41A0- 10 F3 30 9F A2 03 24 11 
FE D1 ILE 90 41A8- 30 08 A2 05 24 81 10 02 
0F 90 F3 BO 41B0- A2 02 A0 04 B1l 9B C9 O1 
F1 FA 88 B1 41B8- FO 04 A0 08 B1l 9B A8 A9 
26 30 45 A5 41C0- 00 85 07 85 08 85 E7 18 
El 85 E3 A5 41C8- 8A 65 07 85 07 88 DO F8 
1A 85 FB DO 41D0- A4 09 FO 09 18 8A 65 08 
41D8- 85 08 88 DO F8 60 
o 
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Com 


e programme proposé 

ici est écrit en langage 

machine pour des 

raisons évidentes de 
rapidité et de facilité d'emploi. Il 
occupe très peu de place en 
mémoire (moins de 3 pages) et il 
se charge avec RENUMBER car 
il utilise aussi l'ampersand et 
parce qu'ils semblent faire la 
paire ! 


Bien entendu, ce programme tient 
compte de tous les GOTO, 
GOSUB, ONERR GOTO et 
autres IF... THEN. Il en profite 
au passage pour supprimer les 
REMS, et raccourcir les noms des 
variables mais il ne raccourcit 
aucune instruction &, 
CALL ou DATA : en 
effet, la syntaxe de ces 
instructions est elle- 


même très variable ! 

Les lignes ainsi obtenues Pour utiliser le compacteur, il suffit de faire: 
peuvent contenir jusqu'a "BRUN COMP+RENUM" 

$F8 (248) caractères ou PUIS pour compacter : 

tokens ce qui déplait &COMPACTE 


fortement à RENUM- 
BER et à P.L.E. Sur la 
plupart des programmes 
que j'ai compactés, j'ai 
noté un gain de place 
d'environ 10 à 15 % 
avec des résultats 
spectaculaires sur des 
programmes très docu- 
mentés (Gescompte..….) 


Si une ligne ne contenant 
qu'une REM est adressée 
par un GOTO, GO- 
SUB,... il conserve 


ligne avec seulement un 
":", Il est possible qu'un 
deuxième compactage 
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donne un résultat différent du 
premier : en effet la longueur 
"utile" des lignes est déterminee 
avant de raccourcir les variables. 
Ceci peut se produire si les noms 
des variables sont très longs. 


Un autre détail involontaire, il ne 
touche pas à une éventuelle ligne 
65535, j'ai préféré laisser faire. 


Utilisation 


Pour le charger, faire 

"BRUN COMP+RENUM"!. 

Il se place en $8B00, il descend 
HIMEM et vectorise l'amper- 
sand. 

Pour compacter, faire simple- 
ment : "& COMPACTE". 


Comment faire ? 


Pour obtenir le fichier COMP+RENUM, vous 
devrez suivre les étapes suivantes : 


+ Si vous n'avez pas la disquette Pom's, saisir 
sous moniteur la récapitulation COMP, puis la 
sauvegarder (BSAVE COMP,A$8B00,L$2FF). 
Exécuter le programme FAIT EXEC : celui-ci 
crée un fichier EXEC qui va récupérer la partie 
binaire du programme RENUMBER de la 
disquette Maître DOS 3.3. 
Faites alors EXEC CREE COMP+RENUMI. 

+ On vous demande successivement de mettre 
la disquette Maître contenant RENUMBER, 
puis la disquette contenant le fichier COMP, et 
enfin la disquette qui recevra le fichier final 
COMP+RENUM. 


Sylvie Gallet 


Fonctionnement 


Il commence par faire un tableau 
de toutes les lignes appelees par 
GOTO, GOSUB et IF... THEN 
GOTO. Il procède ensuite au 
compactage des lignes après avoir 
exploré chaque ligne pour savoir 
si elle contient un IF, si elle est 
adressée par GOTO, et ses 
acolytes, et pour connaitre sa 
longueur "utile" (c'est-à-dire sans 
les REMSs). 

Il termine en mettant à jour le 
pointeur de fin de programme. 


Il faut noter que dans le cas où le 

programme n'est pas chargé 

comme à l'accoutumée en $801 

(2049), le fonctionnement du 
compacteur n'est pas 
perturbé. 


Remarque : Il a fallu 
faire une petite rustine à 
CHRGET pour qu'elle 
ne saute pas d'office tous 
les $20 qu'elle rencontre, 
$20 se trouvant aussi 
bien dans les adresses de 
lignes que dans les 
numéros de lignes. 


Le lecteur pourra 
certainement apporter les 
petites modifications 
nécessaires pour obtenir 
un programme encore 
plus court : lorsque la 
ligne adressée par un 
GOTO ou un GOSUB ne 
comprend qu'une REM, 
pourquoi ne pas se 
brancher sur la ligne 
suivante par exemple ? 








10 
100 
120 


130 
140 


160 
164 


165 


167 
168 


170 


190 
195 


235 


240 








Programme 


FAIT EXEC 


TEXT : HOME : SPEED= 255:D$ = CH 
R$ (4) 

VTAB 12: PRINT " CREATION DU FI 

CHIER CREE COMP+RENUM" 

NOMS = "CREE COMP+RENUM": PRINT D 
S"'OPEN"NOMS: PRINT DS"WRITE"NOMS 
PRINT "TEXT:HOME:SPEED=255" 
PRINT "PRINT"; CHRS (34);"INSERE 
Z LA DISQUETTE CONTENANT RENUMBER 
"+: CHRS (34);":PRINT"; CHRS (34); 
"PUIS PRESSEZ UNE TOUCHE"; CHRS ( 
34);": WAIT -16384,128:POKE -1636 
8;:0" 

PRINT "LOAD RENUMBÈR" 
PRINT "POKE 2968,96: POKE 2792,1 
69:POKE 2793,200:POKE 2800,169:PO 

KE 2801,10:CALL 2791" 

REM SORTIE DE RENUMBER 

PAR RTS AU LIEU DE JMP $D64B (EN 
$B98) 

REM MODIF DE RENUMBER 
REM $SAFO0:LDA $7A REMPLACE 

PAR LDA #$O0A ET $AE8:LDA $79 REM 
PLACE PAR LDA #$C8 
PRINT "PRINT"; CHRS (34);"INSERE 
Z LA DISQUETTE CONTENANT COMP"; C 
HRS$S (34);":PRINT"; CHRS (34);"PUI 
S PRESSEZ UNE TOUCHE"; CHRS$S (34); 
": WAIT -16384,128:POKE-16368,0" 
PRINT "BRUN COMP" 

PRINT "PRINT"; CHRS (34);"INSERE 
Z LA DISQUETTE QUI CONTIENDRA 

COMP+RE ". CHRS (34); ":PRINT"; 
CHRS$S (34);"PUIS PRESSEZ UNE TOUC 

HE"; CHRS (34);": WAIT -16384,128 
:POKE-16368, 0" 

PRINT "BSAVECOMP+RENUM, AS8B00, LS 

B00" 

PRINT DS$"CLOSE"NOMS 


Récapitulation rare 


8B68- 00 DO OC 
8B70- FE C8 91 
COMP 8B78- B1 00 20 


8B00- A9 4C 8D F5 03 A9 14 8D 8B88- 5B 8B C9 


8B08- F6 03 85 73 A9 8B 8D F7 8B90- FO OB C9 
8B10- 03 85 74 60 C9 43 FO 03 8B98- 00 BO ES 
8B18- 4C 00 8E A0 00 CO 07 BO 8BAO- 20 OC DA 
8B20- 0B 20 B1 00 D9 34 8B DO 8BA8- 91 FE E6 


8B28- 08 C8 DO F1 20 B1 00 FO 8BB0- A5 51 91 
8B30- OA 4C C9 DE 4F 4D 50 41 8BB8- E6 FF 68 


8B38- 43 54 45 A5°67 85 B8 A5 8BCO- BF A0 00 
8B40- 68 85 B9 AO 01 B1 67 DO 8BC8- 20 5C DB 
8B48- 03 4C C1 8B A5 AF 18 69 8BDO- FE OD OD 


BO 00 85 





‘260 A% = ASC (AS): IF A% < > 13 AND A% < > 21 AND A% 





Un exemple 
Le programme ‘Agenda’, publié page 8 de ce numéro. 


AVANT : 1311 octets APRES : 858 octets 
(Gain 34 %) 












10 HOME : ONERR GOTO 570 
100 PRINT ” COMPOSITION AUTOMATIQUE DE": PRINT " 
NUMERO TELEPHONIQUE": PRINT CHRS (4);"BLOA 

DCOMPOSEUR": DIM T$(100.,2) 

140N=0 

150N =N + 1: FOR J = 1 TO 2: READ TS$(N,J): NEXT J: GOTO 
150 

200 VTAB (8): PRINT ‘Utilisez les flèches “;: INVERSE : PRINT " 
=>": NORMAL : PRINT "et ";: INVERSE : PRINT "<=": NOR 
MAL : PRINT "pour sélectionner le nom de l'abonné": PRINT 
: PRINT "Validez avec la touche RETURN": = 0 

250 GET A$ 














< > 8 THEN 260 

280 IF A% = 13 THEN 360 

290 IFA%=21 THENI=1+#1 

300 IFA% = 8THENI=1-1 

310 IFI>N-1THENI=N-1. 

320 IFI<1THENI=1 

330 VTAB 15: CALL - 868: PRINT TS$(I,1),T$(1,2): GOTO 250 

360 X$ = T$(1,2): POKE 49241,0: FOR I = 1 TO 700: NEXT I: HO 
ME : PRINT : PRINT ‘Je compose le numéro ";: FOR 1=1 
TO LEN(XS$):A = ASC ( MIDS$ (X$,1,1)) + 128: POKE 7,A: 
CALL 768: PRINT CHRS (A);: FORT = 1 TO 600: NEXTT 
: NEXT Il: HTAB 1: VTAB 5: PRINT "Décrochez le combiné, 
maintenant...": VTAB 8: PRINT "avant": FOR I = 400 TO 
1 STEP - 1: VTAB (15): HTAB (11): PRINT INT (1/50);" 
secondes": NEXT I: POKE 49240,0: GOTO 580 

570 IF PEEK (222) = 42 THEN 200 

580 HOME : RESTORE : PRINT "Pret pour un autre appel ..": 

4 GOTO 140: DATA RENSEIGNEMENTS,3612: DATA AUTRES 
RENSEIGNEMENTS, 3611: DATA JULIETTE, 12345678 


























NDLR : Une ligne telle que la n° 360 de ce programme 
compacté ne manquera pas de vous poser des problèmes si 
vous voulez la modifier maintenant. Pour cette raison, il est 
sage de ne pas se séparer du programme original. 

Si vous avez malencontreusement perdu votre version non 
compactée, vous utiliserez avec intérêt le DECRUNCHER 
de Patrice Neveu que nous publierons prochainement. 










A9 EA 85 CO 85 8BEO- 4F 47 52 41 4D 4D 45 20 
00 20 B1 00 C9 8BE8- 45 4E 20 4D 45 4D 4F 49 
A9 FF A0 00 91 8BF0- 52 45 20 2A 2A OD OD 00 
FE 4C F8 8B 20 8BF8- A5 68 85 B9 85 EF A5 67 
B1 00 20 B1 00 8C00- DO 02 C6 B9 18 69 FF 85 





AB FO OF C9 BO 8C10- 85 EE A9 00 85 EB A9 03 









C4 DO E7 20 B1 8C18- 85 EC 85 19 85 18 20 D8 
90 03 20 B1 00 8C20- 8C 20 B1 00 85 1D 20 B1 
48 A5 50 A0 00 8C28- 00 85 1E 20 12 8D 20 49 
FE DO 02 E6 FF 8C30- 8D A5 19 DO 41 AS 1C DO 





FE E6 FE DO 02 8C38- 3D A5 1A FO 70 A5 18 FO 
c9 2C FO DE DO 8C40- 4F C9 F8 BO 31 18 65 1A 







B9 D1 8B F0 06 8C48- BO 04 C9 F8 90 35 A5 1B 
C8 DO F5 4C B3 8C50- DO 24 A9 F8 38 ES 18 85 
2A 2A 20 07 50 8C58- F9 20 69 8D A5 FC FO 16 








CR 


{ 


Programme COMPACTEUR ae ris 


(Assembleur Lisa 2.5) 49 OUTDO  EQU $DB5C 
50 ; 

1% 51 ; 

PAELLIIZILIILI LILI 11111. 52 ORG $8B00 

3 * * 53 OBJ $B00 

4 * COMPACTE UN * 54 ; 

5 * PROGRAMME BASIC * 55 A: 

6 * ET SUPPRIME LES * 56 ; 

7 * REMARQUES # 57 LDA #$4C 

8 * S.GALLET 24-8-85 * 58 STA AMPER 

| 9 * * 59 LDA #TEST 

10 PRE TE TILL TILL TILL ITR 60 STA AMPER+1 
11; 61 STA HIMEM 
12 CHRGET EPZ $B1 62 LDA /TEST 
13 CHRGOT  EPZ $B7 63 STA AMPER+2 
14 TXTTAB EPZ $67 64 STA HIMEM+1 
15 TXTPTR EPZ $B8 65 RTS 

16 TEMP EPZ $FD 66 ; 

17 TABLEAU EPZ $FE 67 TEST: 

18 GOTO EPZ $AB 68 CMP #'C" 

19 GOSUB  EPZ $BO 69 BEQ >1 

20 THEN EPZ $C4 70 JMP RENUMBER 
21 CAR.ECR EPZ $EE 71: "1 LDY #50 

22 L EPZ $F9 72 *2 cPY #57 

23 DEUXPT EPZ $FC 73 BCS >3 

24 LS EPZ $EB 74 JSR CHRGET 
25 LCLONG EPZ $18 75 CMP COMMANDE, Y 
26 LCIF EPZ $19 76 BNE >4 

27 LSLONG EPZ $1A 77 INY 

28 LSIF EPZ $1B 78 BNE <2 

29 LSGOTO EPZ $1C 79 *3 JSR CHRGET 
30 NUM.B  EPZ $1D 80 BEQ INIT 

31 NUM.H  EPZ $1E 81 “4 JMP STXERR 
32 IF EPZ $AD 82 COMMANDE ASC "OMPACTE"' 
33 REM EPZ $B2 83 ; 

34 AMPRS  EPZ $AF ;TOKEN DE & 84 INIT: 

35 CALL EPZ $8c 85 LDA TXTTAB 
36 DATA EPZ $83 86 STA TXTPTR 
37 PRGEND  EPZ $AF 87 LDA TXTTAB+1 
38 LMAX EPZ $F8 88 STA TXTPTR+1 
39 ONERR  EPZ $A5 89 LDY #$1 

40 LINNUM EPZ $50 90 LDA (TXTTAB),Y 
41 HIMEM  EPZ $73 91 BNE >0 

42 TEMP1 EPZ $06 92 JMP PASPROG 
43 TEMP2  EPZ $07 93 *0 LDA PRGEND 
44 AMPER  EQU $03F5 94 CLC 

45 BASIC  EQU $FEB3 95 ADC #55 

46 LINGET EQU $DAOC 96 STA TABLEAU 
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SE A 0) 


100 
101 
102 


103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
177 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 


% 


LDA PRGEND+1 
ADC #$0 
STA TABLEAU+1 
LDY #$0 


;CREE UN TABLEAU DE TOUS LES NUMEROS DE LIGNES 


;PAR GOTO, 


7 


DEBUT : 


4 


29 
*6 


«2 


‘8 


PASPROG 
‘0 


CE | 
MSG 


ADRESSES 
GOSUB ET THEN 


#$EA 

$co 

$c1 

CHRGOT 
CHRGET 

#50 

BNE >0 

#$FF 

LDY #$0 
(TABLEAU) , Y 


;UNE PETITE RUSTINE 
; SUR CHRGET 


(TABLEAU) ,Y 
COMPACTE 


JSR CHRGET 
JSR CHRGET 
JSR CHRGET 
#50 
BNE >4 
CHRGET 
JMP DEBUT 
#GOTO 
BEQ >5 
#GOSUB 
BEQ >5 
#THEN 
BNE <1 

JSR CHRGET 
BCS <2 
BCC >6 
CHRGET 
JSR LINGET 


LINNUM 

LDY #$0 
(TABLEAU) , Y 
TABLEAU 

BNE >7 

INC TABLEAU+1 
LDA LINNUM+1 
(TABLEAU) , Y 
INC TABLEAU 

BNE >8 
TABLEAU+1 


s"; L 
BEQ <5 
BNE <2 
LDY #$0 
LDA MSG, Y 
BEQ >1 
JSR OUTDO 


BNE <0 

JMP BASIC 

HEX ODOD 

EF 

HEX 07 

"PAS DE PROGRAMME EN MEMOIRE **" 
HEX 0DO0D00 





168 COMPACTE: 

169 ;-------- 

170 ; 

171 ;LCLONG ET LCIF CONCERNENT LA LIGNE 

172 ; EN COURS D'ECRITURE 

173 ;LSLONG, LSGOTO ET LSIF CONCERNENT 

174 ; LA LIGNE SUIVANTE 

175 ; 

176;: 

177 ; AU DEPART, SI LE PROGRAMME BASIC 

178 ;EST IMPLANTE EN $801: 

179 ; - CHRGET = $800 

180 ; - CAR.ECR = $7FF 

181 ; 

182 ; 

183 LDA TXTTAB+1 

184 STA TXTPTR+1 

185 STA CAR.ECR+1 

186 LDA TXTTAB 

187 BNE >0 

188 DEC TXTPTR+1 

189 *0 CLC 

190 ADC #$FF 

191 STA TXTPTR 

192 BNE >1 

193 DEC CAR.ECR+1 

194 *1 CLC 

195 ADC #$FF 

196 STA CAR.ECR 

197 LDA #$0 

198 STA LS 

199 LDA #$03 

200 STA LS+1 

201 STA LCIF 

202 STA LCLONG 

203 ; 

204 *0 JSR LITADR 

205 JSR CHRGET 

206 STA NUM.B 

207 JSR CHRGET 

208 STA NUM.H 

209 JSR GOTO? 

210 JSR LONG.IF 

211 

212 LDA LCIF :SI LCIF<>0 OU SI 

213 BNE >3 ;LSGOTO<>0, IL NE 

214 LDA LSGOTO ;FAUT PAS "COLLER" 

215 BNE >3 ;LES 2 LIGNES 

216 ; 

217 LDA LSLONG ;SI LSLONG = 0 -> 

218 BEQ >7 ;RIEN A RECOPIER 

219 ; 

220 LDA LCLONG ;SI LCLONG = 0 -> 

221 BEQ >5 ;ON COPIE LS TELLE 

222 ; QUELLE 

223 ; 

224 CMP #LMAX ;SI LCLONG >= LMAX 
> 

225 BCS >3 :SON COMPTE EST BON 
1 

226 CLC 

227 ADC LSLONG 

228 BCS >1 

229 CMP #LMAX ;SI LCLONG+LSLONG < 

230 BCC >4 ;LMAX ON PEUT COLLE 
R LC ET LS 

231 ; 

232 ;ICI, ON DOIT SE CONTENTER DE COLLER UN MORCEAU 

233 ;:DE LS AU BOUT DE LC, A CONDITION QUE LS NE 

234 ;CONTIENNE PAS DE IF (NI ONERR GOTO) ET QU'IL Y 

235 ;AIT UN ":" SEPARATEUR D'INSTRUCTIONS. 

236 ; 
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237 *1 LDA LSIF 
238 BNE >3 

239 LDA #LMAX 
240 SEC 

241 SBC LCLONG 
242 STA L 

243 JSR CHERCHE 
244 LDA DEUXPT 
245 BEQ >3 

246 LDX #50 

247 STX TEMP1 
248 STX TEMP2 
249 LDA #':' 
250 *2 JSR ECRIRE 
251 INC LCLONG 
252 DEC LSLONG 
253 JSR CHRGET 
254 DEC DEUXPT 
255 BNE <2 

256 ; 


257 ; ENTREE ICI SI ON NE COMPACTE PAS 
258 ; LES DEUX LIGNES 


259 7 

260 "3 JSR CHAINER 

261 JSR COPIENUM 
262 LDA #$0 

263 STA LCLONG 

264 JMP >5 

265 ; 

266 ; ENTREE ICI SI ON COMPACTE LES 
267 ; DEUX LIGNES 

268 ; 

269 *4 LDY #$0 

270 LDA #":' 

271 CMP (CAR.ECR),Y 
272 BEQ >5 

273 JSR ECRIRE2 

274 INC LCLONG 

275 ; 


276 ; ENTREE ICI SI LCLONG=0 ET 
277 ; LSLONG<>0: ON RECOPIE LS DANS LC 


278 ; 

279 *5 LDA LSIF 
280 STA LCIF 
281 LDX #50 
282 STX TEMP1 
283 STX TEMP2 
284 *6 JSR CHRGET 
285 CMP #50 
286 BEQ >8 

287 CMP #REM 
288 BEQ >7 

289 JSR ECRIRE 
290 INC LCLONG 
291 UMP <6 

292 ; 


293 ; ENTREE ICI SI LSLONG=0, ON FINIT 
294 ; DE LIRE LA LIGNE SANS RECOPIER 


295 ; 

296: 27 JSR CHRGET 

297 CMP #$0 

298 BNE <7 

299776 JMP <0 :ICI,ON VIENT DE LI 

300 ; RE LE 0 DE FIN DE 
LIGNE 

301 ; 

302 ; 

303 ;SOUS PROGRAMMES 

304 ;------------ 

305 ; 

306 CHAINER: 

307 LDA LCLONG :SI LC VIDE, 
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BNE >1 

LDA 4':' 

JSR ECRIRE2 
1 LDA #50 

JSR ECRIRE2 

JSR ECRIRE2 

LDA CAR.ECR 

STA (LS),Y 


LDA CAR.ECR+1 
STA (LS),Y 
STA LS+1 

LDA CAR.ECR 
STA LS 


Ve Ve % 


;ECRIT : 


;ECRIT LE 0 DE 
; FIN DE LIGNE 


; LIT LES 2 PREMIERS OCTETS DE LS 
:SI 00 00 -> FIN DU PROGRAMME BASIC 


LITADR: 
JSR CHRGET 
JSR CHRGET 
CMP #50 
BNE >1 
JSR CHAINER 
LDA #$0 
JSR ECRIRE2 
JSR ECRIREZ2 
JSR ECRIRE2 
LDA CAR.ECR 
STA PRGEND 
LDA CAR.ECR+1 
STA PRGEND+1 
LDA #$F0 
STA $CO 
LDA #$EF 
STA $C1 
JMP BASIC 
22 RTS 
COPIENUM: 
JSR ECRIREZ2 
LDA NUM.B 
JSR ECRIREZ 
LDA NUM.H 
JSR ECRIRE2 


‘ 


î 


: CHERCHE SI LS EST APPELEE PAR GOTO, GOSUB OU TH 


EN GOTO 
;SI OUI -> LSGOTO=1 
:SI NON -> LSGOTO=0 
GOTO?: 
LDA PRGEND 


ADC #$4 
STA TABLEAU 
LDA PRGEND+1 
ADC #$0 
STA TABLEAU+1 
LDY #$0 
ca JSR LIRETABL 
CMP NUM.B 
BEQ >3 
JSR LIRETABL 
#2 CMP #$FF 
BNE <1 
LDA #$0 





;ICI LE PROGRAMME 
:EST TERMINE 











379 STA LSGOTO 451 STY DEUXPT 


380 RTS 452 3 INY 

381 “3 JSR LIRETABL 453 CPY L 

382 CMP NUM.H 454 BCC <1 

383 BNE <2 455 BEQ <1 

384 LDA #$1 456 “4 RTS 

385 STA LSGOTO 457 ; 

386 RTS 458 ;DANS "ECRIRE": 

387 ; 459 ;SI TEMPI=1: ON EST EN TRAIN DE RECOPIER 
388 LIRETABL: 460 ;UNE CHAINE SANS LA MODIFIER 

389 INC TABLEAU 461 ;5SI TEMP1=0: TOUT DEPEND DE TEMP2 

390 BNE >4 462 ; 

391 INC TABLEAU+1 463 ;SI TEMP2=1: ON EST EN TRAIN DE COPIER UNE 
392 "4 LDA (TABLEAU),Y 464 ; INSTRUCTION QUI CONTIENT &, CALL OU DATA 
393 RTS 465 ;DANS CE CAS, ON COPIE TOUT JUSQU'AU ':' 
394 ; 466 ; SEPARATEUR 

395 ; 467 ; SI TEMP2=0: L'INSTRUCTION NE CONTIENT NI & 
396 ; 468 ;NI CALL NI DATA: LES TEST DETERMINENT ALORS 
397 ;CHERCHE LA LONGUEUR DE LS (LSLONG) 469 ; SI ON TRAITE UN NOM DE VARIABLE OU UNE 
398 ;ET LA PRESENCE DE IF OU DE ONERR 470 ; CONSTANTE 

399 ;SI NI IF, NI ONERR -> LSIF=0 471 ;DANS LE CAS D'UNE VARIABLE X INDIQUE LE NOMBRE 
400 ;SINON -> LSIF<>0 472 ;DE CARACTERES DEJA ECRITS 

401 ; 473 ;X EST REMIS À O PAR TOUT CARACTERENON ALPHANUME 
402 LONG.IF: 474 ;RIQUE , 

403 LDY #$0 475 ;TEMP2 EST REMIS À 0 PAR UN ':' SEPARATEUR OU PA 
404 STY LSIF 476 ;R UN O0 DE FIN DE LIGNE 

405 STY LSLONG 477 ; 

406 INY 478 ; 

407 “1 LDA (TXTPTR),Y 479 ECRIRE: 

408 BEQ >4 480 STA TEMP 

409 CMP #REM 481 CMP #DATA 

410 BEQ >4 482 BEO >0 

411 CMP #IF 483 CMP #AMPRS 

412 BEQ >2 484 BEQ >0 

413 CMP #ONERR 485 CMP #CALL 

414 BNE >3 486 BNE >1 

41522 STY LSIF 487 “0 LDA #51 

416 *3 INY 488 STA TEMP2 

417 BNE <1 489 JMP >7 

418 "4 DEY 490 *1 CMP $'""' 

419 STY LSLONG 491 BNE >2 

420 RTS 492 LDA TEMP1 

421 ; - 493 EOR #51 

422 ; 494 STA TEMP1 

423 ; 495 JMP >7 

424 ;POUR COPIER UN MORCEAU DE LS, 496 *2 LDA TEMP1 

425 ; CHERCHE SI DANS LES L PREMIERS 497 BNE >7 

426 ; CARACTERES IL Y A UN : NON 498 LDA TEMP 

427 ; INCLUS DANS DES GUILLEMETS 499 CMP #':" 

428 ;SI OUI -> DEUXPT = LA DERNIERE 500 BNE >3 

429 ; POSITION TROUVEE 501 LDA #50 

430 ;SI NON -> DEUXPT=0 502 STA TEMP2 

431 ; 503 UMP >7 

432 CHERCHE: 504 *3 LDA TEMP2 

433 LDY #$0 505 BNE >7 

434 STY TEMP 506 LDA TEMP 

435 STY DEUXPT 507 CMP #'0" 

436 INY 508 BCC >7 523 *6 INX 

437 CPY L 509 CMP #'Z'+1 524 LDA TEMP 
438 BCS >4 510 BCS >7 525 ECRIRE2: 

439 *1 LDA (TXTPTR),Y 511 CMP #'9'+1 526 LDY #$0 
440 BEQ >4 512 BCS >4 527 INC CAR.ECR 
441 CMP #'"' 513 CPX #50 528 BNE >9 
442 BNE >2 514 BEQ >7 529 INC CAR.ECR+1 
443 LDA TEMP 515 BNE >5 530 *9 STA (CAR.ECR),Y 
444 EOR #$01 516 “4 CMP #f'A' 531 RTS 

445 STA TEMP 517 BCC >7 532 ; 

446 UMP >3 518 *5 CPX #52 533 ; 

447 2 CMP #':' 519 BCC >6 534 B: 

448 BNE >3 520 DEC LCLONG 535 LONGUEUR EQU B-A 
449 LDA TEMP 521 RTS 536 ; 

450 BNE >3 922 ST LDX #$FF 537 END 
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Sens, uns, Que, Queen ue 

Be US eee US nn tente 

EEE CR AE CRC CR CE 
es utilitaires de recopie 


graphique des écrans 

haute-résolution sont 

très nombreux, dispo- 
nibles sur le marché commercial, 
ou publiés par Pom's. En revan- 
che, les écrans graphiques basse 
résolution semblent être ignorés. 


Je vous propose ici un petit 
programme qui permet de générer 
des impressions papier sembla- 
bles à la haute-résolution à partir 
des graphiques basse-résolution 
de l'Apple. Ceci donne un aspect 
beaucoup plus agréable, en éli- 
minant l'aspect terne des impres- 
sions traditionnelles. 


Le programme DHGR utilise la 
propriété de l'ImageWriter et de la 
DMP de pouvoir créer facilement 
sa propre police de caractère, et 
n'est donc exploitable qu'avec ces 
imprimantes. 


Utilisation 


Le programme fonctionne sous 
DOS 3.3 ; il se loge à l'adresse 
$300 (768 en décimal) sur une 
longueur de $F0 octets. Comme il 
écrase certaines adresses du DOS 
contenues en $3D0-$3EF, il peut 
être nécessaire de rebooter après 
son utilisation. 


HCGR fonctionne sur tous les 
types d'Apple // pourvus d'une 
ImageWriter connectée au slot 1. 
Il s'initialise par un simple 
"BLOAD HCGR" et est alors 
exécuté aussi souvent que néces- 
saire par "CALL 768". 


Les fichiers de la disquette Pom's 
sont : 


HCGR , le code objet exécutable 
HCGRS, le source en Big Mac 
HCGR.DEMO), la démonstration 


Principe de 
fonctionnement 


HCGR effectue l'impression de la 
page graphique basse résolution 
de l'Apple (accessible sous 
Applesoft par l'instruction "GR"). 
Cette page correspond à une grille 
de 40 x 48 pavés, chacun ayant 
une couleur parmi 16 disponibles. 


En mémoire, les pavés sont re- 
groupés deux à deux pour former 
un octet. Il serait possible de 
considérer chaque octet comme un 
code ASCII et d'imprimer le 
caractère correspondant. Le résul- 
tat ne serait cependant guère satis- 
faisant car l'écran graphique serait 






alors imprimé sous forme d'une 
suite de lettres, de chiffres ou de 
caractères de ponctuation. 


Afin d'améliorer cette présen- 
tation, HCGR utilise la possibilité 
de générer une police de carac- 
tères sur l'imprimante 
ImageWriter. Cela permet de 
définir des carac- tères en fonction 
de la couleur du pavé graphique : 
chaque caractère est imprimé en 
fonction d'une matrice 8 x 8 
contenue dans la mémoire de 


l'imprimante ; on n'a donc qu'à 
redéfinir ces matrices pour obtenir 
des caractères très clairs si le pavé 
graphique affiche une couleur 
claire, et le contraire dans le cas 
.… contraire. 


Fonctionnement du 
programme 


Le programme doit tout d'abord 
sélectionner l'imprimante (PR#1). 
Il faut ensuite créer une police de 
caractères personalisés, ce qui est 
réalisé par la séquence suivante : 


*_initialisation ($09,$5A ,$0D) ; 

* largeur des caractères fixée à 8 
points d'aiguille ($1B,$2D) ; 

+ _ début de définition ($1B,$49) ; 

+ _ définition de chaque caractère : 
code ASCII suivi du code 
largeur ($48 pour 8 points) et 
celui de la nouvelle matrice ; 

+ fin de définition ($04) ; 

+ sélection des caractères ‘Pica” 
($1B,$4E) ; 

+ _interligne de 16/144 ($1B,$54, 
$31,$36) ; 

° options simple largeur, 
impression bidirectionnelle, 5 
sauts de lignes ($0F,$1B,$3C, 
$1F,$35). 


Il reste à examiner chaque pavé de 
la page graphique basse résolution 
implantée aux adresses de $400 à 
$7FF, de le convertir en carac- 
tère imprimable (un pavé blanc, 
donc de couleur $F, est converti 
en $3F correspondant au caractère 
"?" qui est imprimé comme un 
carré plein). 


On utilise la routine SCREEN du 
moniteur (située en $F871) qui 
renvoie, pour une ligne et une 
colonne données, la valeur du 
code couleur. 


Enfin, on redonne la main au 
DOS 3.3 en effectuant un PR#O. 
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Programme 0,0,0 1010 DATA 4,4,4,4,4,4,4,4,4,4,4, 


HCGR.DEMO 1004 DATA 0,0,0,0,0,0,1,0,0,0,0, 4,4,4,4,4,4,4,4,5,5,1,3,3, 
. 0,2,0,0,2,0,0,3,0,0,0,0,3, 3,6,1,6,6,6,6,6,6,6,6,6,6, 
0,0,0,0,0,0,0,0,0,5,0,0,0, 6, 6,6 
10 HOME : PRINT "DEMONSTRATION 0,0,0 1011 DATA 4,4,4,4,4,4,4,4,4,4,4, 
DE HCGR" 1005 DATA 0,0,0,0,0,0,1,0,0,0,0, 4;4;45:414;474,2:5,5,5;2:0; 
11 PRINT : PRINT "ALLUMEZ VOTR 0,2,0,0,2,0,0,3,0,0,0,0,3, 2,1,1,6,6,6,6,6,6,6,6,6,6, 
E IMAGEWRITER" 0,0,0,0,0,0,0,0,0,5,0,0,0, 6,6,6 
12 PRINT CHR$ (4);"BLOAD HCGR 0,0,0 1012 DATA 4,4,4,4,4,4,4,4,4,4,5, 
,A768" 1006 DATA 0,0,0,0,0,0,1,0,0,0,0, SASHA 4252252151, 152225 
15 HOME : GR : POKE - 16302,0 0,2,2,2,2,0;0;:3;0;0:0,0,3, 2,1,1,3,6,6,6,6,6,6,6,6,6, 
: CALL - 1998 0,0,0,0,0,0,5,5,5,5,0,0,0, 6,6,6 
25 POKE 1004, 62 0,0,0 1013 DATA 4,4,4,4,4,4,4,4,4,4,4, 
30 POKE 1002,15: GOSUB 100 1007 DATA 0,0,0,0,0,0,0,0,0,0,0, SA5rAde 432; 201; 11; 272, 
35 POKE 1002,14: GOSUB 100 0,0,0,0,0,0,0,0,0,0,0,0,0, 5,5,1,3,3,5,2,6,6,6,6,6,6, 
40 POKE 1002,15: GOSUB 300 0,0,0,0,0,0,0,0,0,0,0,0,0, 6, 6,6 
45 POKE 1002,14: GOSUB 300 0,0,0 1014 DATA 4,4,4,4,4,4,4,4,4,4,4, 
50 C(0) = 0:C(1) = 15:C(2) = 12 5 11r71;3;9%3;5,5x9;275, 
:C(3) = 9:C(4) = 0:C(5) = 5: 5:5,523;355,;2/2r3;3;35 0567 
C(6) = 0 L 6,6,6 
55 POKE 1002,15: GOSUB 500 La mise en page de ce 1015 DATA 4,4,4,4,4,4,4,2,2,4,4, 
60 C(0) = 0:C(1) = 15:C(2) = 15 programme 45,192,2;2,3,3;5;5; 33.5; 
:C(3) = 15:C(4) = 2:C(5) = 1 2,5,5,2;3,5:5:0%35 316626; 
5:C(6) = 8 6, 6,6 
65 POKE 1002,15: GOSUB 500 Bernard France nous pardonnera 1016 DATA 4,4,4,4,3,3,3,2,2,2,2, 
90 TEXT : HOME : END certainement d'avoir modifié 4,5,5,2,2,2,1,1,5,5,3,3,1, 
D AE légèrement les DATA de son source re uns dd 
140 COLOR= I assembleur. Le programme de 1017 DATA 4:4,4,4,4,3,3,5,5,5,1, 
160 HLIN I,39 - IATI Marianne Sutz du précédent 1,93, 1,2.1,1.1,2,3.55, 
180 HLIN I,39 - I AT 39 - I numéro nous a aidé à récupérer les 1,1,1;2;2,1,141,2;2;:67656; 
200 VLIN I,39 - IATI ‘motifs’ du Macintosh. Pour obtenir 6, 6,6 
220 VLIN I,39 - I AT 39 - I les reproductions ci-contre, nous 1018 DATA 4,4,4,4,3,3,3,5,5,5,1, 
nn avons utilisé non l'ImageWriter mais FAR RS AN EU NS ES 
H RAR ETETEIERSLETETE LEZ] 
Ai rui la LaserWriter en suivant les étapes AE 
300 CALL - 1998 suivantes : 1019 DATA 4,4,4,4,4,4,4,5,5,5,1, 
320 FOR J = 0 TO 47 + _ Récupération des DATA sur le 2,2,5,5,1,1,5,5,2,2,2,5,5, 
340 FOR I = O0 TO 39 Macintosh, CDR TO PEROU 
360 COLOR= I + J a : 6, 6,6 
380 PLOT I,J , Transmission par la carte série sur 1020 DATA 4,4,4,4,4,4,4,4,4,2,2, 
400 NEXT I l'Apple Y, C | 2,2,5,5,5,3,3,5,5,3,3,1,1, 
420 NEXT J + __ Insertion dans l'assembleur puIs 5,3,3,3,2,1,1,1,6,6,6,6,6, 
440 CALL 768 assemblage, 6, 6,6 
460 RETURN + _ ‘Impression’ non sur l'ImageWriter 1021 DATA 4,4,4,4,4,4,4,4,4,4,4, 
2 ce rt eut mais sur l'écran du Macintosh 2,5,5,5,5,3,3,2,3,3,3,3,1, 
520 CALL - 1998 TEST : 1,5,5,5,2,2,1,1,6,6,6,6,6, 
0 HETEE émulant l'imprimante, toujours ét 
560 FOR Y = 0 TO 47 par la carte Série et avec  },,; para 4,4,4,4,4,4,4,4,4,4, 3, 
580 FOR X = 0 TO 39 quelques lignes de Basic, Su Tu: 032 2:25 3;3011e 
600 READ I + Sauvegarde de l'écran sur 5,5,5,5,2,2,1,6,6,6,6,6,6, 
610 IF Y2 < Y1 THEN 580 disquette, éseé 
620 COLOR= C{I) . Récupération avec le programme 1023 DATA 4,4,4,4,4,4,4,4,4,4,3 
640 PLOT X,Y MacPaint 1353-4117 555;272/2/ 3,292 
660 NEXT X . RES 5 55,51,2,2,6,6,6,6,6,6,6 
680 NEXT Y + Impression définitive par 6,6 
700 CALL 768 l'intermédiaire du programme 1024 DATA 4,4,4,4,4,4,4,4,4,4,4 
720 RETURN MacDraw afin de choisir aisément 293%31,15575517;579/2r2r2 
1000 DATA 0,0,0,0,0,0,1,1,1,1,0, le format. 225 382;1,1,1, 672726656076 
0,2,2,2,2,0,0,3,0,0,0,0,3, à As , 6, 6,6 
0,0,0,1,0,0,5,5,5,5,0,0,0, Le résultat est la réplique fidèle (et ;,;5 para 4,4,4,4,4,4,4,4,4,4,4 
0,0,0 même un peu plus) de ce que vous 4529272: 3: 3,3,1:5/6, 51,1 
1001 DATA 0,0,0,0,0,0,1,0,0,1,0, obtiendrez sur votre imprimante. 123/2%1,171,2:2;2,6;676;:6 
0,2%0,0;2;0:0;73;2:0;073,3, , 6, 6, 6 
0,0,1,1,0,0,5,0,0,0,0,0,0, 1026 Ps 4,4,4,4,4,4,4,4,4,4,4, 
0,0,0 1008 DATA 4,4,4,4,4,4,4,4,4,4,4, 22,2,3,4,1,151,2,2, 1,4, 
1002 DATA 0,0,0,0,0,0,1,0,0,1,0, 4,4;4,4,4;4,4;4;1,1,3,6;6; ru cs S»5:5:2:313, 67656567 
0,2,0,0,2,0,0,3,0,3,3,0,3, 6,6,6,6,6,6,6,6,6,6,6,6,6, 6:66 
0,0,0,0,0,0,5,0,0,0,0,0,0, 6, 6,6 1027 DATA 4,4,4,4,4,4,4,4,4,4,4 
0,0,0 1009 DATA 4,4,4,4,4,4,4,4,4,4,4, 4,4,4:2:9,;5,:5; 1205205572; 
1003 DATA 0,0,0,0,0,0,1,1,1,1,0, 4;4,4;4;4;4,4,4/1;1;1,;3;6, 2/323:5,:5:5:5,3:3/6: 656: 6» 
0,2,0,0,2,0,0,3,0,0,0,0,3, 6,6,6,6,6,6,6,6,6,6,6,6,6, 6'6:6 
0,0,0,0,0,0,5,5,5,5,0,0,0, 6,6,6 1028 DATA 4,4,4,4,4,4,4,4,4,4,4, 
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1041 DATA 4,4,4,4,4,4,4,4,4,4,4, : 1. a 
= i 4,4,4,4,4,4,4,4,4,4,4,4,4, c 
Hard-Copy simple et Din sa dass or LAS DAT 4 4,4,4,4/41,4.1:0 6 
double : des précisions Ds ON NC EN EE 
Si li drgtis 1042 DATA 4,4,4,4,4,4,4,4,4,4,4, La: sin Sete Ara 
é 4,4,4,4,4,4,4,4,4,4,4,4,4, pe 
d'accompagnement de ce numéro, ALT NU 14 413 344 à 1046 DATA 4,4,4,4,4,4,4,4,4,4,4, 
vous trouverez des versions Frs JM ASE dE 4,4,4,4,4,4,4,4,4,4,4,4,4 
À a y EC M 0 1043 DATA 4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,5,5,5,4,4,4 
D pérennes des Po 4,4,4,4,4,4,4,4,4,4,4,4,4 4,4,4 
18 et 19. En double largeur, la Fee 4444333444 1047 DATA 4,4,4,4,4,4,4,4,4,4,4 
dernière ligne n'était pas 4 LÉ LE ir EE de 4,4,4,4,4,4,4,4,4,4,4,4,4 
imprimée. D'autre part, la 1044 DATA 4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,5,4,4,4 
nouvelle version du patch du Éd RÉDA AA dau 4 4,4,4 
numéro 19 respecte mieux la ÉicS pi éénheé 
géométrie de l'image (mise en 
caractères Elite au lieu de 
proportionnels). 4 ' 0368- AA 34 48 AA 00 AA 00 AA 
Récapitulation 0370- 00 AA 00 35 48 11 22 44 
HCGR 0378- 88 11 22 44 88 36 48 55 
4/1;4,2; 556,5; 6725 25050787 0380- 55 55 55 55 55 55 55 37 
2,2,1,3,3,5,5,1,6,6,6,6,6, 0300- A9 00 85 36 A9 C1 85 37 0388- 48 27 3F F3 72 4E CF FC 
6, 6,6 0308- A2 39 E8 BD 00 03 20 ED 0390- E4 38 48 55 00 55 00 55 
TU NT 0318- AO FF C8 8A 20 71 F8 09 03A0- 77 EE DD BB 77 3A 48 F7 
re Sd ‘°?  0320- 30 20 ED FD CO 27 90 F2 03A8- DF FE FB BF EF FD 7F 3B 
Fer = 03B0- 48 EF DF BF 7F FE FD FB 

1030 DATA 4,4,4,4,4,4,4,4,4,4,4, . 0328- A9 OD 20 ED FD EO 2F 90 
4,4,1,1,1,2,2, 3,3, 3,1,1,1, 0330- E6 A9 BD 85 36 A9 9E 85 03B8- F7 3C 48 55 FF AA FF 55 
33,1:3331,5,5,6,6,6,6,  0338- 37 60 09 5A OD 1B 2D 1B 03CO- FF AA FF 3D 48 EE FF DD 
6,6,6 0340- 49 30 48 00 00 00 00 00 03C8- FF EE FF DD FF 3E 48 77 

1031 DATA 4,4,4,4,4,4,4,4,4,4,4,  0348- 00 00 00 31 48 22 00 88 03D0- FF FF FF 77 FF FF FF 3F 
4,3,3,1,2,2,1,1,1,3,1,1,1,  0350- 00 22 00 88 00 32 48 55 03D8- 48 FF FF FF FF FF FF FF 
3,3,5,2,2,2,5,5,5,1,1,6,6, 0358- 00 AA 00 55 00 AA 00 33 03E0- FF 04 1B 4E 1B 27 1B 54 
6,6,6 0360- 48 55 AA 55 AA 55 AA 55 03E8- 31 36 OF 1B 3C 1F 35 0D 

1032 DATA 4,4,4,4,4,4, 

4372951411 TT | 
2,5,5,1,2,2,5,5,5 Basicium… 
6, 6,6 

1033 DATA 4,4,4,4,4,4,4,4,4,4 le Basic 
3,3,3,5,5,5,5,2, 

292,5 11515393; : ; 
. enrichi 

1034 DATA 4,4,4,4,4,4 

2%2,2/2,313,2%2, 
2,475, 154,153; Se 
LC Cet utilitaire vous permet de 80 colonnes. Ces écrans, 

1035 DATA 4,4,4,4,4,4 + définis lors de la program 
2,22r2r3, 3,2, 3, mation, s'affichent par la 
SANIPRET MT simple commande ” ] A". 
us Imprümer l'écran = 

1036 DATA 4,4,4,4,4,4 40 ou 80 colonnes 
4,42,2,33,2,3, Saisir toutes les variables 
Aer 44,444 d'u A Tan 6 He eue 

1037 DATA 4,4,4,4,4,4 = Nortover mémoi - 

Nettoyer mémoire contrôlant type et Donueur. 
4, 4, 4, 4, 4, 4, 4, 4,3 très rapidement par. e RE 
4,4,4,4,4,4,4,4,4 “] "n ne —_ 
4,4,4 - 

1038 DATA 4,4,4,4,4,4 — Mais aussi, ne saisir que 
4,4,4,4,4,4,4,4,4, Gérer des messages, l'une des variables affectées 
4,4,4,4,4,4,4,4,4 la réponse étant à un écrar les aiieher: les 
4,4,4 effacer, etc. 

1039 DATA 4,4,4,4,4,4,4,4,4,4, - 
4,4,4,4,4,4,4,4,4, 
4,4,4,4,4,4,4,4,4 
4,4,4 

1040 DATA 4,4,4,4,4,4, 
4,4,4,4,4,4,4,4, 
4,4,4,4,4,4,4,4, 

4,4,4 
' o 
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Programme HCGR.S 


(assembleur BigMac) 


Oo © J où OU 8 WU N Ha 


LLÉLÉESÉESS 
* HCGR * 
LÉÉLÉELSE SES 
* BERNARD FRANCE 
* BIG MAC 
COUT = SFDED 
CSW = $36 
DOSCSW = S9EBD 
SCREEN = SF871 
ORG $300 
CELLES SES SE SS PR#1 CLLSSESÉLSSES SES 
LDA #$00 
STA CSW 
LDA #$C1 
STA CSW+1 
** DEFINITION NOUVEAUX CARACTERES 
LDX #$39 40 COL - 1 
CAR INX CARACT SUIVT 
LDA $0300,Xx CHARGE TABLE 
JSR COUT ENVOI À IMPR 
CPX #$EE FIN TABLE ? 
BCC CAR NON 
** ANALYSE DE LA PAGE GRAPHIQUE 
LDX #$FF 
LIG INX LIGN SUIVANTE 
LDY #$FF 
COL INY COL SUIVANTE 
TXA 
JSR SCREEN RENV COULEUR 
ORA #$30 CONVERTI 
JSR COUT ENVOI À IMPR 
CPY #$527 DERNIERE COL 
BCC COL NON 
LDA #$0D RETR CHARIOT 
JSR COUT 
CPX #S2F DERNIERE LIGN 
BCC LIG NON 
ÉLÉLLSELÉESSES PR#0O LÉSÉSLÉELLSS 
LDA #<DOSCSW RETOUR AU DOS 
953 
STA CSW 
LDA #>DOSCSW 
STA CSW+1 
RTS C'EST FINI! 
ÉÉALÉLLÉESÉESS TABLE ÉÉLLSSLESSS 
DFB S$09,$5A,$O0D INITIALISE 
DFB $1B, $2D 8 POINTS 
DFB $1B,$49 DEBUT DEF 


CC, CS ÉÉÉÉÉÉ 


60 


61 








DFB $30,$48,S$00, $00, $00, $00, 
$00, $00, $00, $00 
NOIR 

DFB $31,$48,S22,S$00,$88,$00, 
$22,$00, $88,S$00 

MAGENTA 

DFB $32,$48,$55, $00, $AA, $00, 
$55,$00, $AA, $00 . 

DFB $33,$48,$55, SAA, $55, $AA, 
$55, $AA, $55, SAA 

DFB $34,$48, SAA, $00, $AA, $00, 
$SAA, $00, $AA, $00 

DFB $35,$48,S11, $22, $44,$88, 
$11,$22,S$44,$88 

DFB $36,$48,$55,$55, $55,$55, 
$55, $55, 555, 595 

DFB $37,$48,S$27,$S3F, SF3, $72, 
$4E, $CF, SFC, $E4 

DFB $38,$48,$55, $00,$55, $00, 
$55,$00,$55, 500 

DFB $39,$48,$EE, $DD, $BB, $77, 
$EE, $DD, $BB, $77 

DFB $3A,$48,$F7, $DF, $FE,$FB, 
SBF, $SEF, $FD, $7F 

DFB $3B,$48,SEF, SDF, $BF,$7F, 
$SFE, SFD, $FB, $F7 

DFB $3C,$48,$55,SFF, SAA, $FF, 
$55,$FF, $AA, $FF 

DFB $3D,S$48,$EE, $FF, $DD,$FF, 
SEE, $SFF, SDD, $FF 

DFB $3E,S$48,$77,SFF,S$FF,S$SFF, 
S$77,$SFF, S$SFF, $FF 

DFB S$3F,$48,S$SFF, SFF, $FF,$FF, 
SFF,SFF,SFF,$FEF 

DFB $04 FIN POLICE 

DFB $1B,$4E CARACT PICA 

DFB S$1B,$27 POLICE PERSO 

DFB $1B,S$54,$31,$36 

DFB $0F SIMPL LARGEU 


DFB $1B,$3C BIDIRECTIONN 
DFB $1F,$35 5 SAUTS LIGN 
DFB $0D NON UTILISE 
END 
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De la fosmule.;;,;5 


Jean-Louis Chauvin 


n complément de l'ar- 
ticle paru dans le n° 
11 de Pom's, voici 
deux nouveaux pro- 
grammes de tracé de courbes en 
conversationnel. 


Le premier, baptisé FORMULEI, 
dessine toutes les fonctions du 
type Y = f(X). Il permet aussi de 
tracer la courbe de la dérivée. 


FORMULE2 trace les courbes 
définies soit par un couple 
d'équations paramétriques X = 
f(T), Y = g(T), soit par une 
équation polaire R = f(T). Dans 
les deux cas, vous pouvez 
également : 


+ obtenir une famille de courbes 
en introduisant dans la formule 
un paramètre M ; 

+ cadrer la partie du plan (X Y) 
représentée ; 

+ faire apparaître ou non les axes 
de coordonnées ; 

* tracer la courbe par points 
(pour les fonctions discon- 
tinues). 


Avec les deux programmes, les 
formules apparaissent sur le 
graphique. 

Quand vous lancez FORMULE, 
laissez dans le lecteur une 
disquette non protégée (vous 
verrez plus loin pourquoi). 


Complétez après "Y = la formule 
comme en Basic, sans autre 
variable que X (et M dans 
l'option avec ‘paramètre'); vous 
pouvez utiliser les constantes PI 
et E (attention à la syntaxe : tapez 
2 * PI et non 2 PI). X1, X2, Y1 
et Y2 délimitent la partie du plan 
représentée sur l'écran. 


Si vous changez les valeurs 
proposées, prenez soin que X2 
soit supérieur à X1 et que Y2 soit 
supérieur à Y1. Si vous avez 
demandé un paramètre M, vous 
devrez définir sa progression par 
les valeurs extrêmes M1 et M2 et 
par le pas qui doit être de même 
signe que (M2-M1). 
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Avec FORMULE, le processus 
est le même excepté que, dans les 
formules, la variable doit être T et 
non X. 


En outre, vous aurez à introduire 
les bornes T1 et T2 du domaine 
de variation de T si les valeurs 
par défaut ne vous conviennent 
pas. 

Le paramètre M vous permettra 
de réaliser des effets artistiques. 
Essayez par exemple : 

R=COS (4*T)+M 

avec M1 = -2, M2=2 et PAS=1. 


- l'arrêt par END (ligne 290) 

déclenche l'exécution de la 
procédure. 
Celle-ci, après avoir modifié le 
programme, le relance à la li- 
gne 400 (RUN 400 ligne 260). 
Ce RUN mettant les variables à 
zéro, les valeurs à conserver 
doivent être inscrites également 
dans des instructions par la 
procédure (lignes 225 à 250). 

+ après redémarrage, la procé- 
dure est effacée (ligne 410) et 
le déroulement se poursuit. 


Exemple de courbe avec paramètre M 
variant de -2 à 2 par pas de I 


Le programme 


Il est entièrement rédigé en 
Applesoft. Pour insérer une 
formule dans une instruction, il 
procède comme suit : 


+ la formule est introduite (ligne 
90 de FORMULE) comme 
variable chaîne F$. 

+ le programme crée et enregistre 
sur la disquette (lignes 200 à 
270) une procédure nommée 
PROCEDURE qui comporte 
entre autres commandes (ligne 
220) la création à la ligne 560 
de l'instruction représentée par 
la formule Y=F$. 





Pendant le tracé de la courbe, les 
valeurs non définies de la fonc- 
tion (1/0, SQR(-1)...) sont élimi- 
nées par ONERR GOTO 1700, 
corrigé par la routine classique en 
langage machine de la ligne 35. 


Par ailleurs, l'affichage de la 
formule en mode graphique est 
assuré par le sous-programme de 
la ligne 1500. 


Celui-ci utilise une table de 
formes (fichier ALPHA sur la 
disquette) que le programme 
charge (ligne 37) à l'adresse 
16384 ($4000), immédiatement à 
la suite de la page graphique 
haute résolution n°1. 
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Programme FORMULE1 


REM TRACE DE COURBES DE FONCTIO 
N 





115 





N Y1$ = "-4": HTAB 4: 
EK (37): PRINT Y1$ 
TMPUT NP ="-Y2$: IF Y25 = 0 T 
HEN Y2$ = "4": HTAB 4: VTAB P 
EEK (37): PRINT Y2$ 


VTAB PE 





20 REM PAR J.L.CHAUVIN 1984 120% MST= "O"SMDS = "O"spMS = 1QPs 
30 DS = CHRS$S (4):FIRST = l: SCALE IF PAR THEN PRINT : PRINT "VA 
= l: ROT= 0:0$ = CHRS$S (34):S = LEURS DE M:": INPUT "DE M=";MS$S 
16384 : INPUT "A M=";MDS: INPUT "PAS 
35 POKE 768,104: POKE 769,168: POK =";PMS$S 
E 770,104: POKE 771,166: POKE 7 130 HGR : HOME 
72,223: POKE 773,154: POKE 774, 200 REM CREATION PROCEDURE POUR IN 
72: POKE 775,152: POKRE 776,727 TRODUIRE LES FONCTIONS DANS LE 
POKE 777,96 PROGRAMME * 
37 PRINT D$S"BLOADALPHA,A"S: POKE 2 210 PRINT DS; "OPENPROCEDURE": PRIN 
32,0: POKE 233, 64 T DS; "WRITEPROCEDURE 
40 POKE 34,0: TEXT : HOME : PRINT 220 PRINT "560Y="FS: PRINT "825Y=" 
TAB ( 7) '"COURBES DE FONCTIONS Y F$S: PRINT "835Y="FS 
=F (X) 225 PRINT "415F$="O$S;F$;QS$S 
50 PRINT TAB( 7) "===========-===== 230 PRINT "420X1="X1S":X2="X0S 
SREESSSSSE== 240 PRINT "430Y1="Y1$":Y2="Y2S$S 
60 PRINT : PRINT "INTRODUCTION DE 250 PRINT "440M="MS":MD="MDS":PM="" 
LA FORMULE PMS 
70 PRINT : INPUT "FORMULE AVEC PAR 260 PRINT "RUN40O 
AMETRE 'M' (0)?";A$: IF A$ = "O 270 PRINT D$"CLOSEPROCEDURE 
" THEN PAR = 1 280 PRINT D$"EXECPROCEDURE 
80 IF FIRST THEN PRINT : PRINT "R 290 END : REM ARRET POUR DECLENCHE 
ESPECTEZ LA SYNTAXE DU BASIC": R EXEC | 
PRINT "VOUS POUVEZ UTILISER 'PI 399 REM PREPARATION DONNEES ** 
U ED VE 400 PI = 4 * ATN (l):E = EXP (1) 
90 PRINT : PRINT "FORMULE:";: INPU ONERR GOTO 1700 
TU" Y=nN.FS$ 410 DS = CHRS$S (4):QS$ = CHR$S (34) 
100 PRINT : PRINT "VALEURS EXTREME : PRINT DS"DELETEPROCEDURE 
S DE X(SINON:X1=-7,X2=7):": IN 415 F$ = "EXP(X/2)" 
PUT "XIi=":X1$: IF X1$ = "" THE 420 X1 = - 7:X2 = 7 
N X1$ = "-7": HTAB 4: VTAB PE 430 Y1 = - 4:Y2 = 4 
EK (37): PRINT X1S$ 440 M = O:MD = O:PM = 0 
105 INPUT "X2=":X2$: IF X2$ = ""T 445 POKE 34,20: HOME : HCOLOR= 3 
HEN X2$ = "7": HTAB 4: VTAB P 450 IF X1 > = X2 THEN PRINT "ERR 
EEK (37): PRINT X2$ EUR: X1>=X2": GET A$: GOTO 40 
110 PRINT : PRINT "VALEURS EXTREME 460 IF Y1 > = Y2 THEN PRINT "ERR 
S DE Y(SINON:Y1=-4,Y2=4):": IN EUR: Y1>=Y2": GET A$: GOTO 40 
PUT "VI1="-Y1Se IF Y1$ = "" THE 465 IF MD = M GOTO 480 
4040- c6 02 D3 02 DD 02 EA 02 40C0- A2 05 A8 05 B8 05 00 00 
Table de formes 4048- F9 02 05 03 11 03 1D 03 40C8- 00 00 00 00 00 00 00 00 
ALPHA 4050- 29 03 33 03 3F 03 4C 03 40D0- 00 00 00 00 00 00 00 00 
di vois said Per sois 4058- 56 03 5F 03 6E 03 77 03 40D8- 00 00 00 00 00 00 00 00 
Entente 4060- 85 03 93 03 AO 03 AA 03 40E0- 00 00 00 00 00 00 00 00 
4068- B7 03 C5 03 D2 03 DB 03 40E8- 00 00 00 00 00 00 00 00 
BSAVE ALPHA, A$4000, L$5CO 4070- E8 03 F5 03 03 04 14 04 40F0- 00 00 00 00 00 00 00 00 
: 4078- 1E 04 2C 04 31 04 3D 04 40F8- 00 00 00 00 00 00 00 00 
4000- 80 00 8A 01 A6 01 A8 01 4080- 4C 04 53 04 59 04 61 04 4100- 00 00 01 00 00 00 00 00 
4008- AF 01 B8 01 C5 01 D4 01 4088- 6E 04 79 04 81 04 8A 04 4108- 00 00 00 00 00 00 00 00 
4010- DF 01 EC 01 EF 01 F8 O1 4090- 95 04 9F 04 AC 04 B9 04 4110- 00 00 00 00 00 00 00 00 
4018- 00 02 OF 02 18 02 1C 02 4098- C1 04 CB 04 D8 04 El 04 4118- 00 00 00 00 00 00 00 00 
4020- 21 02 24 02 2E 02 3E 02 40A0- EA 04 F3 04 FE 04 09 05 4120- 00 00 02 03 04 05 06 07 
4028- 47 02 55 02 61 02 6C 02 40A8- 14 05 1C 05 27 05 31 05 4128- 08 09 OA 0B OC OD 0E OF 
4030- 79 02 85 02 92 02 9F 02 40B0- 3B 05 45 05 51 05 61 05 4130- 10 11 12 13 14 15 16 17 
4038- AB 02 AE 02 B2 02 BF O2 40B8- 6E 05 79 05 87 05 93 O5 4138- 18 19 1A 1B 1C 1D 1E 1F 
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470 


480 


490 


495 
500 
510 
520 


524 
525 


530 


531 


532 
535 


537 


539 
540 
550 
560 
570 
580 


590 
600 


610 
620 





IF (MD - M) * PM< O OR PM= 0 


THEN PRINT "ERREUR SUR M": G 
ET A$: GOTO 40 
HOME INPUT "COURBE PAR POINT 


& KO)2 "SAS: IF A6 < > "O7 THE 
N CO=1 


PRINT : INPUT "TRACE DES AXES 
(0)?";AS$: IF A$ = "O" THEN AX 
= 1 
HOME 


REM GRAPHIQUE ** 

TS = "y=" + F$S: GOSUB 1500 

RX = (X2 — X1) / 279:RY = (Y2 

- Y1) / 159: IF AX = O0 GOTO 54 

(0) 

REM AXES ET GRADUATION 

XO = - X1 / RX:Y0 = 159 + Y1 

/ RY: IF X0 < O OR X0 > 279 GO 

TO 532 

HPLOT X0,0 TO X0,159:YP = 
(Y2): IF X0 > 278 GOTO 532 
YY = (Y1 — YP) / RY + 159: HPL 

OT XO0 + 1,YY:YP = YP - 1: IF Y 

P > = Y1 GOTO 531 

IF YO < O0 OR YO > 159 GOTO 540 

HPLOT 0,YO TO 279,Y0:XP = INT 
(X2): IF YO < 1 GOTO 540 

XX = (XP - X1) / RX: HPLOT XX, 

YO - 1:XP = XP - 1: IF XP > = 
X1 GOTO 537 

REM COURBE 

XX = 0 

X = X1 + XX * RX 

Y = EXP (X / 2) 

YY = (Y1 — Y) / RY + 159 

IF YY < O OR YY > 159 THEN IN 

= 0: GOTO 620 

IF IN * CO THEN 

YY: GOTO 610 

HPLOT XX, YY 


INT 


HPLOT TO XX, 


IN = 1 
XX = XX + l: IF XX < 280 GOTO 
550 


625 
630 


640 


650 
800 
810 


815 
820 
825 
830 
835 
840 
850 
860 
870 


880 
890 
900 
910 


920 
1499 


1500 


IN = O0: IF PM = O0 GOTO 800 
M = M + PM: IF (MD - M + PM) * 


PM > O0 GOTO 540: REM ITERAT 
ION 
HOME : INPUT "AUTRE FORMULE (O 


)?";A$: IF A$ = "O" GOTO 40 
END 

REM DERIVEE ** 

HOME : INPUT "TRACE DE LA DERI 
VEE (O0)?";AS$: IF A$ < > "O"G 
OTO 640 

XX = O0: HCOLOR= 2 


X = X1 + XX * RX 

Y = EXP (X / 2) 

YD = Y:XD = X:X = X + .001 
Y = EXP (X / 2) 

DY = Y = YD°DX° = X = .XD 


DER = DY / DX 

DD = (Y1 - DER) / RY + 159 

IF DD < O0 OR DD > 159 THEN IN 
= 0: GOTO 910 

IF IN * CO THEN HPLOT TO XX, 
DD: GOTO 900 : 

HPLOT XX, DD 


IN = 1 
XX = XX + 1: IF XX < 280 GOTO 
820 


IN = 0: HCOLOR= 3: GOTO 640 
REM AFFICHAGE HGR D'UNE CHAIN 
E TS + x 
S = 16384:A = S + PEEK (S + 
2) + 256 * PEEK (S + 3) :NB = 

PEEK (S):IC = 1:XB = PEEK 
(A —- 6):YB = PEEK (A - 5) 
LO = LEN (T$):DX = PEEK (A 
— 8) + IC + 1 
FORYEs=\1 TONLO 
AS ASC: ( MIDS (TS$,;1,;1)) 
PEEK (S + 2 * NB + 2 + 


AS) : 
DRAW NF AT XA 
XA 
N XA = O0: 


+ XB,YA + YB 
IF XA > 270 THE 
YA + 10 
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29 








30 








1570 NEXT : RETURN 

1700 REM TRAITEMENT ERREURS 

1705 CALL 768 

1710 ER = PEEK (222):LI = PEEK ( 
216)-+ PEEK (219) * 256 

1720 IF (ER = 53 OR ER = 133) AND 
LI = 560 THEN IN = 0: GOTO 62 
0 

1730 IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE LIGNE ";LI: GET 
A$: GOTO 40 

1740 IF (ER = 53 OR ER = 133) AND 
(LI = 825 OR LI = 835) THEN I 
N = 0: GOTO 910 

1750] PRINT "ERREUR N["ER" LIGNE "L 


I: PRINT CHRS$ (7): END 





Programme FORMULE2 


10 


REM TRACE DE COURBES DE FONCTIO 

N 

REM PAR J.L.CHAUVIN 1984 

DS = CHR$S (4):FIRST = l: SCALE 

= 1: ROT= 0:Q$ = CHR$ (34):S = 
16384 

POKE 768,104: POKE 769,168: POK 

E 770,104: POKE 771,166: POKE 7 
72,223: POKE 773,154: POKE 774, 
72: PORE 775,152: POKE 776, 72: 

POKE 777,96 

PRINT DS$"BLOAD ALPHA,A"S: POKE 

232,0: POKE 233, 64 


20 
30 


35 


37 


=F(T), Y=G(T) 
80 PRINT : PRINT "2-COORDONNEES PO 
LAIRES": PRINT TAB( 18)"R=F(T) 
90 PRINT : INPUT "VOTRE CHOIX:";CH 
OIX$: IF CHOIXS$S = "1" GOTO 120 
100 IF CHOIX$ = "2" GOTO 200 


110 PRINT "CHOIX ERRONE": GOTO 90 

119 REM INTRODUCTION X=F(T), Y=G(T 
1 2 

120 HOME : PRINT : PRINT "INTRODUC 
TION DES FORMULES": GOSUB 130: 
GOTO 150 

130 PRINT : INPUT "FORMULE AVEC PA 
RAMETRE ‘'M' (O)?";A$: IF A$ = 
"O" THEN PAR = 1 


140 IF FIRST THEN PRINT : PRINT " 
RESPECTEZ LA SYNTAXE DU BASIC" 
: PRINT "VOUS POUVEZ UTILISER 
"DI' ET tE'" 

145 RETURN 

150 PRINT : PRINT "FORMULES:": 
UT "X=":F$: INPUT "Y=":GS$S 

160 PRINT : PRINT "VALEURS EXTREME 
S DE X(SINON:X1=-7,X2=7):": IN 
PUT "X1=":X1$: IF X1$ = "" THE 
N X1$ = "-7": HTAB 4: VTAB PE: 
EK (37): PRINT X1$ 

170 INPUT "X2=":XD$: IF X2$ = "0 
HEN X2$ = "7": HTAB 4: VTAB P 
EEK (37): PRINT X2$ 

180 PRINT : PRINT "VALEURS EXTREME 
S DE Y(SINON:Y1=-4,Y2=4):": IN 
PUT "Yi="-Y1$S: IF Y1$ = "" THE 
N Y1$ = "-4": HTAB 4: VTAB PE 
EK (37): PRINT Y1S 


INP 





40 POKE 34,0: TEXT : HOME : PRINT 190". INPUT Y2="Y2$S: IE Y2S = UN T 
TAB( 11) '"COURBES DE FONCTIONS HEN Y2$ = "4": HTAB 4: VTAB P 

50 PRINT TAB( 11) "====-=---=--=-=---- EEK (37): PRINT Y2$ 

—— 195 GOTO 240 
60 PRINT : PRINT "CHOISISSEZ ENTRE 199 REM INTRODUCTION R=F(T) ** 

e 200 HOME : PRINT "INTRODUCTION DE 
70 PRINT : PRINT "1—-COORDONNEES PA LA FORMULE": GOSUB 130 

RAMETRIQUES": PRINT TAB( 18)"X 210 PRINT : PRINT "FORMULE:": INPU 
42C0- 27 28 2D B5 3F 00 12 17 4340- 36 26 24 24 FC 1B 36 2E 43C0- 6C 15 15 04 00 3F 20 OC 
42C8- OC OC OC 1F 08 1F 08 1F 4348- 37 36 04 00 24 3C 2D 37 43C8- 2D 15 D6 15 F6 3F 1F 08 
42D0- 08 05 00 B6 1C 08 64 OC 4350- 36 36 3E 2D 07 00 9B 72 43D0- 06 00 36 26 24 24 3C 2F 
42D8- 1C 3F 17 04 00 38 OC 70 4358- 2D 1D 08 24 24 34 00 3B 43D8- 2D 3D 00 1B 24 34 36 36 
42E0- 0E 17 15 3F BF 0E 2D 25 4360- 36 6E 09 1C 1C 1C 08 1D 43E0- 0E 2D 1D 08 24 24 34 00 
42E8- O4 00 3A 37 26 24 64 OC 4368- 08 OC DF 33 36 00 1B 24 43E8- 1B 24 34 36 76 15 OC 1D 
42F0- 1E 08 0E 15 36 2F 36 04 4370- 34 36 36 2E 2D 3D 00 1F 43F0- 08 24 24 06 00 1F 24 34 
LV QG 36 3 3D LI FE LS LS 4 36 16 24 LC AD QC 25 LRER- 26 36 26 AN TA 35 24 24 
4300- F6 3F 27 24 00 1B 24 OC 4380- 36 36 36 04 00 1F 08 27 4400- 24 06 00 1C 1F 08 34 96 
4308- 2D 15 96 F2 3F 1F 08 24 4388- 34 36 36 6E 09 24 2F 24 4408- 32 64 OD 15 26 1C 08 18 
4310- 00 1B 24 2C 2D 15 36 36 4390- 24 06 00 1B 36 0E 2D 1D 4410- 1D 08 34 00 36 26 24 1C 
4318- 1E 3F 27 24 00 AD 12 3F 4398- 08 24 24 1C 3F 17 36 00 4418- 1C 6C 09 F6 07 00 IE 1E 
4320- 3F 24 2C 27 24 2D 2D 07 43A0- 2D 20 1C 3F 37 36 3D 36 4420- 2E 2D 25 18 08 18 1D 08 
4328- 00 3D 3F 36 26 24 24 2C 43A8- 26 00 72 1D 08 24 E4 3F 4428- 3C 3F 2F 00 20 FO OD 07 
4330- 2D 3D 00 2A 35 3E 8F 1F 43B0- 17 36 36 0E 6D 05 00 2D 4430- 00 12 16 OC 2C 1C 08 38 
4338- 08 24 24 OC 2D 3D 00 2D 43B8- 20 1C 3F 37 36 3D 36 26 4438- 3F 17 76 2D 00 1B 1C 08 


TS 
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220 


240 


245 


250 


255 


260 


300 


310 


320 


330 


T UR=UeFS 

PRINT : PRINT "VALEUR EXTREME 

DE R (SINON R=4)": INPUT "RI1=" 

;/R1$: IF R1$ = "" THEN RI$ = " 

4": HTAB 4: VTAB PEEK (37): P 

RINT R1S$ 

PRINT : PRINT "VARIATIONS DE T 
(SINON:DE: PT A:PT).:"#.INPUT 

"DE Til=";T1$: IF T1$ = "" THEN 
T1$ = "-PI'": HTAB 7: VTAB PE 

EK (37): PRINT T1$ 

INPUT "A T2=";T2$: IF T2$ = "" 
THEN T2$ = "PI": HTAB 6: VTAB 
PEEK (37): PRINT T2$ 

MS es 10" :MDS _ 10":PMS = np: 

IF PAR THEN PRINT : PRINT "VA 

LEURS DE M:": INPUT "DE M=";M$ 

: INPUT "A M=";MDS$S: INPUT "PAS 

=" }PMS 

PRINT : INPUT "VOULEZ-VOUS REP 

RENDRE CES DONNEES (O)?";A$: I 

F A$ = "O" GOTO 40 


HGR : HOME : SCALE= 1: ROT= 0: 
HCOLOR= 3 
REM CREATION PROCEDURE POUR I 


NTRODUIRE LES FONCTIONS DANS L 

E PROGRAMME * 

PRINT D$; "OPENPROCEDURE": PRIN 

T D$; "WRITEPROCEDURE 

IF CHOIXS = "l" THEN PRINT "9 

20X="FS":Y="G$S: PRINT "460X$=" 

OS + F$ + QS$S":YS="OS + G$ + O$ 
: GOTO 340 

PRINT "920X=COS (T) *("F$") :Y=SI 

N(T)*("FS$")": PRINT "490R$S="OS$ 
+ F$ + Q$: PRINT "480R1 = "RI1 

$: GOTO 350 

PRINT "440X1="X1S":X2="XDS":Y1 

=NYISMSYI=NY2S 

PRINT "420T1="TIS":T2="T2$":M= 
"M$" : MD="MDS" : PM="PMS":CHOIX=" 

CHOIXS 

"RUN400 


PRINT 


520 


530 


PRINT D$"CLOSEPROCEDURE 

PRINT DS$"EXECPROCEDURE 

END : REM ARRET POUR DECLENCH 
ER EXEC 

REM PREPARATION DONNEES ** 
PI = 4 * ATN (1):E = EXP (1) 
ONERR GOTO 1700 

D$ = CHRS (4):Q$ = CHRS$S (34) 
: PRINT DS$"DELETEPROCEDURE 

T1 = — PI:T2 = PI:M = 0: = 
PI / 2:PM = PI / 12:CHOIX = 1 
POKE 34,20: HOME 

IF CHOIX = 2 GOTO 480 
X1 = - 7:X2 = 7:Y1-= 
= 4 

IF X1 = X2 OR Y1 = Y2 THEN PR 
INT "ERREUR SUR X1,X2,Y1,Y2": 
GET A$: GOTO 40 

X$ = "2.5*xCOS(T) *SIN(M) ":Y$ = 
"AXSIN(T)" 

GOTO 500 

R1 = 4 

RS = "SINX" 

IF R1 < = O0 THEN "ERREUR SUR 
Rl'": GET AS$: GOTO 40 

IF MD = M GOTO 520 

IF (M - M) * PM < O0 OR PM = 0 
THEN PRINT "ERREUR SUR M": G 
ET A$: GOTO 40 

HOME : INPUT "COURBE PAR POINT 
S AO) 222$: IE AS < © HO THE 

N CO = 1 


—- 4:Y2 


PRINT : INPUT "TRACE DES AXES 
(0)?";A$: IF AS$ = "O" THEN AX 
= 1 

REM GRAPHIQUE ** 

IF CHOIX = 1 THEN TS = "X=" + 


X$: GOSUB 1500:XA = O0:YA = YA 


+ 10:T$S = "Y=" + YS: GOSUB 150 
O0: GOTO 640 

TS = "R=" + RS: GOSUB 1500 

X2 = 1.75 * R1:X1 = - X2:Y2 = 
R1:Y1 = — RIi 
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31 


32 


640 


650 
660 
670 
680 
690 
700 
710 
850 
860 
900 
910 
920 
930 


940 


950 


960 
970 
980 








RX = (X2'= XI) S 279:RY = (Y2 
— Y1) / 159: IF AX = O0 GOTO 85 
(0) 

REM AXES ET GRADUATION 

XO = — X1 / RX:Y0 = 159 + Y1 


f RY? IF -X0 € DO OR KO > 279 GEO 

TO 690 

HPLOT X0,0 TO X0,159:YP = 
(Y2): IF X0 > 278 GOTO 690 

XX = (YF = XP) JR + 159: HPDL 

OTAC FE L,TVESSP = NP w ls IP Y 

P > = Y1 GOTO 680 

IF" YO." 0 :OR: Y0: > 159. GOTO' 850 

HPLOT 0, YO TO 279,Y0:XP = INT 


INT 


(X2): IF YO < 1 GOTO 700 
XX = (XP - X1) / RX: HPLOT XX, 
YO - 1:XP = XP - l: IF XP > = 
X1 GOTO 710 
DT = PI / 120 * SGN (T2 - T1) 
HOME 


REM TRACE DE LA COURBE ** 
T = Tl1:IN = 0 


X =:2:9:* COS (ZT). * SIN (M): 
Y = 4 * SIN (T) 
XX = (X — X1) / RX:YY = (Y1 - 


Y) / RY + 159 
IE XX € O1OR XX > 279 OR YY < 


O0 OR YY > 159 THEN IN = 0: GOT 
© 980 
IF IN * CO THEN HPLOT TO XX, 


YY: GOTO 970 
HPLOT XX, YY 


IN = 1 
TT FDTS TE (T = Ti), # (T = 
T2) < = 0 GOTO 920 


990 IN = O0: IF PM = O0 GOTO 1010 

1000 M = M + PM: IF (MD - M + PM) 
* PM > O0 GOTO 850: REM ITERA 
TION 

1010 HOME : INPUT "AUTRE FORMULE ( 
O)?";:AS$: IF AÀA$ = "O" GOTO 40 

1020 END 

1499 REM AFFICHAGE HGR D'UNE CHAIN 
E Ts *+*# 

1500 S = 16384:A = S + PEEK (S + 
2) + 256 * PEEK (S + 3) :NB = 

PEEK (S):IC = 1:XB = PEEK 

(A — 6):YB = PEEK (A - 5). 

1510 LO = LEN (T$):DX = PEEK (A 
— 8) + IC + 1 

1520 FOR I = 1 TO LO 

1530 AS = ASC ( MIDS (T$,I,1l)) 

1540 NF = PEEK (S + 2 * NB + 2 + 
AS) 

1550 DRAW NF AT XA + XB,YA + YB 

1560 XA = XA + DX: IF XA > 270 THE 
N XA = O:YA = YA + 10 

1570 NEXT : RETURN 

1700 REM TRAITEMENT ERREURS 

1705 CALL 768 

1710 ER = PEEK (222):LI = PEEK ( 
218) + PEEK (219) * 256 

1715 IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE": GET AS$: GOTO 4 
O0 

1720 IF (ER = 53 OR ER = 133) AND 
LI = 920 THEN IN = 0: GOTO 98 
0 

1760 PRINT "ERREUR N["ER" LIGNE "L 


I: PRINT CHR$ (7): END 


Vous avez un Apple ife avec C hat Maé ouun lé : ?. 


Vous disposez de Pascal 182" 


Profitez de l'interpréteur COGO 


ILs agit d'un shighe. mare double-fiäute s 


Se Ce programmé, 

: métrié plane, Com ann à 
. sur fichier sin de 
#É d' un: calcul. a 


ution écrit en Pascal. 


_. # 


. la Saisie pour Fan Le la misé au ent OÙ 


Ya le à nm 


Par Nicolas Montsarrat | 


À destiné À résoudre des ds probe de F 


de permettre la reprise . 


© NB: Sur. 'Apple IIé, Taff chage se fait en simple. 
haut résolution. 


Bon de commande ‘page 74 / 
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‘Startup’ Basic sous ProDOS 


Pascal Cantot 


oici un programme de 

STARTUP, presque 

entièrement en Basic 

Applesoft. Il occupe 17 
blocs, mais le ProDOS le charge 
en quelques secondes. PoiNi 1 
exécution plus rapide, il est 
possible de retirer les REMSs (à 
l'aide d'un compacteur par 
exemple...). 


STARTUP utilise les 80 
colonnes. Vous ne devrez donc 
l'utiliser qu'avec un //c ou un //e 
muni d'une carte 80 colonnes au 
standard d'Apple. 


Une fois chargé, ce programme 
affiche le préfixe courant, la date, 
et éventuellement un titre 
correspondant à sa disquette de 
résidence (ce titre est fixé en data 
à la ligne 1205). Il va maintenant 
lire le répertoire principal du 
volume, puis affiche les premiers 
fichiers. 


Le fichier courant apparaît en 
vidéo inversée. Pour changer ce 
pointeur vidéo, ou pour effectuer 
une opération sur le fichier 
courant, une trentaine de 
commandes sont disponibles : 


Déplacement 


+ Les flèches <Â— et { dé- 
placent d'un fichier, 


CTRL-W et CTRL-X re- 
monte ou redescend de 8 
fichiers. 


° CTRL-A et CTRL-Z ramène 
au début ou à la fin du 
catalogue actuel. 


+ CTRL-F place le pointeur en 
vidéo inverse sur le fichier 
dont le nom a été saisi (voir 
plus loin). 


Sous-catalogue 
+ CTRL-I ouvre le fichier de 
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type DIR couramment pointé, 
lit ce sous-catalogue et en 
affiche les fichiers. 


+ DEL referme un sous- 
catalogue et réaffiche les 
fichiers du catalogue de niveau 
supérieur. 


Utilitaires 


+ ESC ou CTRL-C permettent 
de sortir de STARTUP après 
confirmation. 

+ ? affiche un écran d'aide 
récapitulant l'ensemble des 
commandes. 


+ CTRL-D permet de saisir la 
date sous la forme 
JJ-MMM-AA. Le mois doit 
être tapé en lettres majuscules 
(et en français). Cette date sera 
inscrite sur les pages globales 
de ProDOS et pourra donc être 
utilisée pendant le restant de la 
session. 


+ L'heure est réglée par les 
touches : {} pour les heures, 
[] pour les minutes, (pour un 
clavier en mode US). 


Opérations 
générales 


+ /permet d'introduire un 
nouveau préfixe au clavier. 

+ 1 ou 2 change le numéro de 
drive (le préfixe est 
automatiquement reconnu). 
C'est également un moyen 
pratique de revenir directement 
au catalogue principal d'un 
volume. 

+ CTRL-P imprime le répertoire 
(ou sous-répertoire) courant. 
L'interface doit être en slot 1. 
Aucun code de contrôle 
particulier n'est envoyé mais la 
ligne 620 du programme est à 
votre disposition. 


Opérations sur les 
fichiers 


+ _ RETURN charge et exécute le 
fichier SYS, BAS, TXT ou 
BIN pointé. 

+ CTRL-L le charge seulement. 


+ * verrouille ou déverrouille le 
fichier. 
+ CTRL-V le vérifie 


+ CTRL-E l'efface (après 
confirmation). On peut effacer 
un fichier de type DIR mais le 
nombre de blocs disponibles 
ne sera plus correctement 
affiché. 


+ _ CTRL-R renomme le fichier. 


En cas d'impossibilité d'exécuter 

la commande, quatre événements 

peuvent se produire : 

- La commande est ignorée (cas 
d'un ”Z sur un fichier VAR ou 


TXT) 
- Il y a un message d'erreur et le 
programme continue 


normalement (cas d'une saisie 
de date incorrecte). 

- Il y a un message d'erreur 
ProDOS et le programme 
redémarre à froid, par relecture 
du répertoire (cas d'un 1/0 
ERROR ou d'un WRITE 
PROTECTED). 

- Il y a une erreur Applesoft : 
une improbable (?) erreur de 
ma part... 


Signalons que ce programme 
ignore le verrouillage des 
fichiers : 1D efface un fichier 
verrouillé et 1R laisse le 
verrouillage en place. Enfin, le 
programme utilise la commande 
FRE de ProDOS : vérifiez que 
votre version de ProDOS la 


supporte. 
GO 











Programme STARTUP 


à REM RAHAHARARAAARÉARÉARHARÉ 
2 REM * STARTUP ProDOS * 
3 REM *----------------- * 
4 REM * P.Cantot, POM'S * 
5 REM RRAAHAHAARAAARARÉAAÉX 
10 DIM A$(100,5),ER$(19),CM$(20),NF(5),PX 
(5) , COMS$ (36) 
15 D$ = CHR$ (4): PRINT D$"PR#3": PRINT D 
S"PREFIX": INPUT PR$:A$(0,0) = PR$ 
20 FOR I = 768 TO 828: READ J: POKE I,J: 
NEXT :PLAY = 768:ERR = 796:BIP = 807 
25 VTAB 23: FOR I = 1 TO 10: PRINT " 
">: NEXT : POKE 34,2: POKE 35,22 . 
30 GOSUB 1075: FOR I = O0 TO 19: READ ER$( 
I) : NEXT 
35 DT = 49040:MO$ = "???JANFEVMARAVRMAIJUN 
JULAOUSEPOCTNOVDEC": GOSUB 920 
40 CR$ = CHR$S (15) + "Return" + CHR$ (14 
) :SP$S = " ” 
45 ONERR GOTO 840 
50 POKE 34,0: VTAB 1: POKE 1403,0: PRINT 
CHRS$ (15); CHR$ (26);PR$; CHR$ (14): 
PRINT : GOSUB 745 
55 VTAB 12: PRINT : PRINT CHR$ (15)A$(Y, 
X) CHRS$ (14) 
60 GOSUB 950 
65 VTAB 24: POKE 1403,0: PRINT CHR$ (26) 
“Entrez commande ou <?> pour aide... " 
70 GOSUB 260: PRINT D$"FRE" 
75 IF KEY = 8 OR KEY = 11 THEN GOSUB 330 
: GOTO 65 
80 IF KEY = 21 OR KEY = 10 THEN GOSUB 31 
0: GOTO 65 
85 IF KEY = 127 AND X THEN X = X - l:Y = 
P(X): GOSUB 795: GOTO 65 
90 IF NOT NF(X) THEN 155 
95 IF KEY = 9 AND MID$ (A$(Y,X),18,3) = 
"DIR" AND X < 5 THEN 350 
100 IF KEY = 42 THEN 380 
105 IF KEY = 22 THEN PRINT D$"VERIFY" MI 
D$ (AS$S(Y,X),2,15): CALL BIP: GOTO 65 
110 IF KEY = 13 THEN 710 
115 IF KEY = 12 THEN 685 
120 IF KEY = 18 THEN.405 
125 IF KEY = 5 THEN 455 
130 IF KEY = 1 THEN Y = 1: GOSUB 805: GOT 
O 55 
135 IF KEY = 26 THEN Y = NF(X): GOSUB 805 
: GOTO 55 
140 IF KEY = 23 AND Y > 8 THEN Y = Y - 8: 
GOSUB 805: GOTO 55 
145 IF KEY = 24 AND Y < NF(X) - 7 THEN Y 
= Y + 8: GOSUB 805: GOTO 55 
150 IF KEY = 6 THEN 510 
155 IF KEY = 47 THEN 560 
160 IF KEY = 91 THEN MN = MN - 1: GOTO 10 
20 
165 IF KEY = 93 THEN MN = MN + 1: GOTO 10 
20 
170 IF KEY = 123 THEN HH = HH - 1: GOTO 1 
020 
175 IF KEY = 125 THEN HH = HH + 1: GOTO 1 
020 
180 IF KEY = 4 THEN 970 
185 IF KEY = 63 THEN 1105 
190 IF KEY = 49 THEN 590 
195 IF KEY = 50 THEN 595 
200 IF KEY = 27 THEN CALL BIP: CALL BIP: 
GOTO 895 
205 IF KEY = 16 THEN 605 
210 CALL PLAY, 64,12: GOTO 65 


END 

REM -=* AFFICHE BLOCKS LIBRES *=- 
VTAB 1: POKE 1403,49: PRINT CHR$ (15 
) "BLOCKS LIBRES: "BF" SUR "BO + BF; C 
HR$ (14) 

RETURN 

VTAB 24: PRINT " ou "CR$" " CHR$ (29) 
POKE 34,23: POKE 35,25: INPUT A$: POK 
E 34,4: POKE 35,22 


IF À$ = "" THEN 65 

RETURN 

REM -=* CURSEUR *=- 

W = PEEK (1403) :KEY = 0 

POKE 1403,W: PRINT "_";: GOSUB 285: I 


F KEY THEN 280 

POKE 1403,W: PRINT " ";: 
F NOT KEY THEN 265 

IF PEEK ( - 16384) > 127 THEN 380 
POKE 1403,W: PRINT " ";: RETURN 

FOR I = 1 TO 40: IF PEEK ( - 16384) 
> 127 THEN KEY = PEEK ( - 16384) - 1 
28: POKE - 16368,0:I = 40 

NEXT : RETURN 

IF PEEK (1063) < > 42 THEN POKE 10 
63,42: RETURN 

POKE 1063, 32: RETURN 

REM -=* DEPLACE CURSEUR *=- 

IF Y > = NF(X) THEN CALL PLAY, 64,12 
: RETURN 

VTAB 12: PRINT : NORMAL : PRINT A$(Y, 
X) ; CHR$ (23): IF Y < NF(X) - 9 THEN 
VTAB 22: PRINT A$(Y + 10,X);: POKE 1 
403,0 

VTAB 13: INVERSE :Y = Y + l: PRINT A$ 
(Y,X); CHR$ (14) 

RETURN 

IF Y = 1 THEN CALL PLAY, 64,12: RETUR 
N 

VTAB 12: PRINT : NORMAL : PRINT A$(Y, 
X) ; CHRS$ (22): IF Y > 9 THEN VTAB 5: 
PRINT A$(Y - 9,X) 

VTAB 13: INVERSE :Y = Y - 1: PRINT A$ 
(XY,X); CHRS$ (14) 

RETURN 
A$ = MID$ (A$(Y,X),2,15):P(X) = 
X FT 

J = 15: FOR I = 1 TO 15: IF ASC ( MID 
$ (A$,I)) = 32 THEN J = I - l:I = 15 
NEXT :A$(0,X) = LEFT$S (A$,J) + "/" 
GOSUB 745 

GOTO 65 

REM -=* LOCK/UNLOCK *=- 
A$ = "LOCK":I = 42: IF ASC (A$(Y,X)) 
= 42 THEN A$ = "UNLOCK":I = 32 

PRINT D$;A$; MID$ (A$(Y,X),2,15) 


GOSUB 285: I 


Y:X = 


AS$S(Y,X) = CHR$ (I) + MID$ (A$(Y,X),2 
) 

GOTO 55 

REM -=* RENAME *=- 

VTAB 24:W$ = MID$S (A$(Y,X),2,15): PO 
KE 1403,0 

PRINT "Nouveau nom"; 

GOSUB 235 


I = 0: IF ASC (A$(Y,X)) = 42 THEN I = 
1 

PRINT D$"UNLOCK"WS:AS$(Y,X) = 
ID$ (A$(Y,X),2) 

PRINT D$"RENAME"WS", "A$ 
AS$(Y,X) = " "+ LEFTS$S (A$ + SP$,15) 


| D + M 


+ 


MID$ (A$(Y,X),17) 
IF I THEN PRINT D$"LOCK"AS:AS$ (Y, X) 
“*" +  MIDS (AS(Y,X),2) 
GOTO 55 
REM -=* DELETE *=- 
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VTAB 24: POKE 1403,0: PRINT CHR$ (29 
)'"Attention: le fichier sera DEFINITI 
VEMENT efface! Continue (O/N) ? "; 
CALL BIP: CALL BIP 

GOSUB 260: IF KEY < > 79 AND KEY < 
SAIT THEN 55 

J = VAL ( MID$S (A$(Y,X),21,9)) 
A$ = MIDS (AS$(Y,X),2,15): PRINT DS$"UN 
LOCK"A$: PRINT DS$"DELETE"AS 


FOR I = Y TO NF(X):A$(I,X) = A$(I + 1 

, X) : NEXT : 
NF(X) = NF(X) - 1: IF Y > NF(X) THEN Y 
= NF(X) 


BO = BO - J:BF = BF + J: GOSUB 225 
GOSUB 805 

PRINT D$"FRE": GOTO 55 

REM -=* RECHERCHE FICHIER *=- 

VTAB 24: POKE 1403,0: PRINT "Nom du f 
ichier"; 

GOSUB 235: PRINT D$"FRE" 


= 1l:A$ = LEFTS (A$ + SP$,15) 
IF A$ = MIDS$S (A$(I,X),2,15) THEN 540 
I=1+1: IF I < = NF(X) THEN 525 


CALL BIP: CALL BIP: GOTO 55 
Y = I: CALL PLAY768, 32, 32 
GOSUB 805 

GOTO 55 

REM -=* CHANGER PREFIXE 
VTAB 24: POKE 1403,0: PRINT "Prefixe" 
GOSUB 235: VTAB 5 

PRINT D$"PREFIX"AS$ 

VTAB 5: PRINT D$"FRE" 

PRINT D$"PREFIX": INPUT PR$:X = 0 
A$(0,0) = PR$: GOTO 50 

PRINT D$"PREFIX,D1": GOTO 575 

PRINT D$"PREFIX,D2": GOTO 575 

REM -=* IMPRIME LE REPERTOIRE *=- 
VTAB 24: POKE 1403,0: PRINT CHR$ (26 
)"Verifiez l'imprimante et appuyez su 
r "CR$S" M. ° 

GOSUB 260: IF KEY < > 13 THEN CALL 
PLAY64,12: GOTO 610 
° PRINT D$"PR#1" 

REM éventuellement codes ctrl de votr 


#—— 


e impr.ici 

PRINT DTS$S" "TIS: PRINT 

PRINT "PREFIX: "PR$: PRINT : PRINT T$ 

: PRINT 

PRINT : FOR I = 1 TO NF(X): PRINT A$( 

I,X): NEXT 

PRINT : PRINT "BLOCKS LIBRES: "BF" 
BLOCKS OCCUPES: "BO" TOTAL: " 

BO + BF 


PRINT D$"PR#3" 

POKE 34,0: VTAB 1: PRINT CHR$ (15) C 
HR$ (26);AS$(0,0); CHR$ (14) 

PRINT PR$: GOSUB 920 

INVERSE : PRINT T$" ";: NORMAL 

VTAB 23: FOR I = 1 TO 20: PRINT " 

":: NEXT : POKE 35,22 

GOSUB 805 

GOTO 55 

REM -=* LOAD/EXECUTE FICHIER *=- 


A$ = MID$S (A$S(Y,X),2,15):W$ = MID$ ( 
A$(Y,X),18, 3) 
IF W$ = "BAS" THEN PRINT D$"PR#3": P 


RINT D$"LOAD"A$ 

IF W$ < > "BIN" THEN 210 

PRINT D$"PR#3": PRINT D$"BLOAD"A$ 
END 


CALL BIP 
VTAB 24: POKE 1403,0: PRINT CHR$ (26 
)"Appuyez sur " CHR$ (15)" C " CHR$ ( 
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14)" pour executer "A$": "; 


_ 


725 
730 
735 
740 
745 
750 


755 


760 
765 


770 
775 


780 
785 


GOSUB 260: IF KEY < > 67 THEN 210 
PRINT D$"PR#3" 

PRINT D$"-"A$ 

END 

REM -=* LIT UN DIRECTORY *=- 


Y = O:NF(X) = 999:PR$ = "": FOR I = 0 
TO X:PR$ = PR$ + A$(0,I): NEXT 
PRINT D$"OPEN"PR$S",TDIR": PRINT D$"RE 
AD'"PR$ 
INPUT A$, T$,A$ 
INPUT AS$: IF A$ = "" THEN INPUT "";A 
$: GOTO 780 
AS YF TX) = ASEY mY + 1: IP Y/ 2 = 
INT (Y / 2) THEN GOSUB 295 
GOTO 765 
PRINT D$"CLOSE" 
BF = VAL ( MID$ (A$,13)):BO = 
MID$S (A$,35)): GOSUB 225: PRINT 
VTAB 2: PRINT :NF(X) = Y: POKE 1063,3 
2: PRINT CHR$ (15);T$" " CHR$ (14): 
POKE 34,4: PRINT :Y = 1. 
A$ = "": FOR I = 0 TO X:A$ = A$ + A$(0 
,I): NEXT : PRINT D$"PREFIX"A$ 
REM -=* AFFICHE UN REPERTOIRE *=- 
POKE 34,0: VTAB 2: POKE 1403,0: POKE 
33,49: PRINT CHR$ (29);: POKE 33,80: 
FOR I = O0 TO X: PRINT A$(0,1I);: NEXT 
: GOSUB 920: PRINT : PRINT : POKE 34 


VAL ( 


:4 
HOME :Z1 = Y - 8: IF Z1 < 1 THEN 21 = 
1 
Z2 = Y + 9: IF Z2 > NF(X) THEN 22 = NF 
(X) 


FOR I = Z2 TO Z1 STEP - 1: VTAB 13 + 
(I - Y): POKE 1403,0: PRINT A$(I,X); 


: NEXT : PRINT 

INVERSE : VTAB 13: PRINT A$(Y,X): NOR 
MAL 

RE TURN 


REM -=* TRAITEMENT D'ERREUR *=- 
CALL ERR:W = PEEK (222): CALL BIP: C 
ALL BIP 

PRINT CHR$ (4) "CLOSE" 

IF W = 255 THEN 895 

VTAB 24: POKE 1403,0: PRINT 
) ; "ERREUR ">; 

IF W AND W < 22 THEN PRINT 
"ERS$S (W - 2);: GOTO 870 
PRINT "APPLESOFT numero "W; 
PRINT ", ligne " PEEK (218) + PEEK ( 
219) * 256; 

PRINT ". Appuyez sur "CR$"... "; 
GOSUB 260: IF KEY < > 13 THEN 880 
RUN 

PRINT D$"FRE" 

VTAB 24: POKE 1403,0: PRINT 
)"Quitter (O/N) ? "; 

GOSUB 260: IF KEY < > 79 AND KEY < 
> 111 THEN 55 

PRINT D$S"PR#3": POKE 783,80: CALL PLA 
Y,0,0: POKE 783,81: PRINT D$"PREFIX"A 
$(0,0) 

END 

REM -=* GESTION DATE *=- 
REM *** Lecture et affichage 
W = 0:Z1 = PEEK (DT + 1):22 = 
DT) 

IF INT (Z1 / 2) * 2 < > Z1 THEN Z1 
= Z1 - 1:22 = Z2 + 128:W = 4 
AA = INT (Z1 / 2):MM= INT (22 / 32) 
+ W:JJ = Z2 - INT (22 / 32) * 32 

IF JJ = 0 OR JJ > 31 OR AA > 99 OR MM 
= 0 OR MM > 12 THEN DT$S = "Sans date 
": GOTO 950 


CHR$ (26 


“"ProDOS : 


CHRS (26 


PEEK ( 











945 DT$ = RIGHTS ("O" + STR$ (JJ),2) + " 

=" + MIDS (MO$,MM * 3 + 1,3) + "=" + 
RIGHTS ("O0" + STR$ (AA),2) 

950 HH = PEEK (DT + 3):MN = PEEK (DT + 2 


) 
955 TI$ = RIGHTS ("O" + STR$ (HH),2) + " 
:" + RIGHTS ("0" + STR$ (MN),2) 


960 VTAB 2: POKE 1403,49: PRINT CHRS$ (15 


)" Date: "DTS$S" Time: "TIS$S; CHR$ (29 
) CHRS$ (14) 

965 RETURN 

970 REM *** Entree de la date *** 

975 VTAB 24: POKE 1403,0: PRINT “Entrez d 
ate (JJ-MMM-AA) ";: GOSUB 235 

980 W = VAL ( LEFTS$ (A$,2)): IF W < 1 OR 
W > 31 THEN GOTO 1055 

985 JJ = W:W$ = MIDS$S (A$,4,3):W = 1: FOR 

I = 1 TO 12: IF W$ = MID$ (MO$,I * 3 
+ 1,3) THEN MM = I:W = 0 

990 NEXT : IF W THEN 1055 

995 AA = VAL ( MID$ (A$,8,2)) 

1000 22 = MM * 32:21 = AA * 2: IF 22 > 255 
THEN 22 = 22 - 256:21 = Z1 + 1 

1005 Z2 = 22 + JJ 

1010 POKE DT,Z2: POKE DT + 1,Z1 

1015 GOSUB 920: GOTO 65 

1020 REM *** Regler heure *** 

1025 IF MN > 59 THEN HH = HH + 1:MN = 0 

1030 IF MN < O THEN MN = 59:HH = HH 

1035 IF HH > 23 THEN HH = 0 

1040 IF HH < O THEN HH = 23 

1045 POKE DT + 3,HH: POKE DT + 2,MN 

1050 GOSUB 955: GOTO 65 

1055 VTAB 24: POKE 1403,0: PRINT CHRS$S (2 
6) "ERREUR: date incorrecte! ‘; 

1060 CALL BIP: CALL BIP: GOSUB 260 

1065 GOTO 65 

REM -=* GENERIQUE *=- 

1075 VTAB 6 

1080 READ A$: IF A$ = "à" THEN 1095 

1085 POKE 36,40 - LEN (A$) / 2: PRINT A$ 
: CALL PLAY,8,16: PRINT : PRINT 

1090 FOR I = 1 TO 200: NEXT : GOTO 1080 

1095 RETURN 

1100 REM -=* AFFICHE COMMANDES *=- 

1105 IF COM THEN 1130 


1110 I =0 
1115 READ A$,WS$S: IF A$ = "à" THEN 1125 
1120 COM$(I) = A$ + LEFTS ("........ rep 


LEN (A$)) + W$:I = I + 1: GOTO 1115 
1125 COM = I 
1130 POKE 34,4: POKE 35,22: HOME 
1135 POKE 1403,26: PRINT "-=* LISTE DES C 
OMMANDES *=-"; PRINT 
1140 FOR I = O TO COM STEP 2 


Ultra-copie : pour un iculièrement rapide 


MORORONINOR UNIES NS © SON NS ER 





FFT EC NEC VE TETE ED EE TETE FT ENFET ET ETIT LITE LS FINE CU UN DO NE FE PER FE TOP PT NETE 


Accompagné d'une cinquantaine de pages de documentation, Gisk Manager permet de recréer 
les commandes du Dos, redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui 
en fait un langage simple d'accès à la disquette. Il offre également un programme simple d'édition 
à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 

Utili-disque : reconstruction d'une disquette détruite, Vérification, P lan d'occupation 


Edicat : Edition du Di dns des fichiers, Titres. 
Multi-disque : pour le classement de tous vos programmes (tri instantané). 


Oisk Manager, le Dos en Kit 


de Dan Steevey 


1145 PRINT COMS(I);: 
COMS (I + 1) 

1150 NEXT 

1155 VTAB 24: PRINT "Appuyez sur une touc 
he... "; CHR$S (29);: GOSUB 260 

1160 GOSUB 805 

1165 GOTO 55 

1170 REM 

1175 « DATA, 32,190,222;32,;70;231,134;81;44; 
48, 192,136, 208, 4, 198, 81, 240, 8, 202, 208 
, 246, 166, 80, 76,8,3,96,0 

1180 DATA 104,168,104,166, 223,154, 72,152, 
72, 96,0 

1185 DATA 162, 32,169, 2,32,168,252,141, 48, 
192,169, 36, 32,168, 252, 141, 48, 192, 202, 
208,237, 96 

1190 REM 

1195 DATA STARTUP ProDOS,Par Pascal Canto 
t pour POM'S 

1200 REM (Nom de la disquette) vv 

1205 DATA DISQUETTE DE DEMONSTRATION 

1210 DATA à 

1215 REM 

1220 DATA RANGE ERROR, NO DEVICE CONNECTED 
, WRITE PROTECTED 

1225 DATA END OF DATA, PATH NOT FOUND, PATH, 

NOT FOUND 

1230 DATA I/O ERROR,DISK FULL, FILE LOCKED 

1235 DATA INVALID OPTION, NO BUFFERS AVAIL 
ABLE 

1240 DATA FILE TYPE MISMATCH, PROGRAM TOO 
LARGE * 

1245 DATA NOT DIRECT COMMAND, SYNTAX ERROR 
,; DIRECTORY FULL 

1250 DATA FILE NOT OPEN, DUPLICATE FILENAM 
E 

1255 DATA FILEBUSY,FILE(S) STILL OPEN 

1260 REM 

1265 DATA ESC, Quitter, Fleches, defilement 
directory 

1270 DATA “W “X,Deplacent de 8 fichiers, * 
A “Z,Debut/Fin du repertoire 

1275 DATA Tab, Ouvre le fichier DIR, Del,Fe 
rme le fichier DIR 

1280 DATA Return, Execute, “L, Charge (BAS e 
t BIN) 

1285 DATA “D, change Date,éè[],reglent heu 
res/minutes 

1290 DATA /,Change prefixe,1/2,change dri 
ve 

1295 DATA *,Lock/Unlock, ‘E, Delete 

1300 DATA ‘R,Rename, “V, Verify 

1305 DATA ‘F,Cherche fichier, P,Imprime r 
epertoire 

1310 DATA à,à 


POKE 1403,40: PRINT 


“ 


ROIS US NN SAIS SE NA TARTENSURE. À. À 


PET EPRSSLISTELSVSESLLSS LISE J'EVE SELLES SSESSESSSS ITS SITES SERLFTEF SES PSE 
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e petit programme 

permet d'insérer des 

titres dans un 

programme Basic à 
l'aide de REMSs sans que l'on voie 
ni le numéro de ligne, ni le mot 
REM. 


Il s'utilise de la manière suivante : 


+ Lancement par 
BRUN TITRES.OBJ 


+ _ Chaque fois que l'on veut faire 
un titre : &T <RETURN>, nnnn 
(une touche), nnnn étant le 
numéro de ligne, l'appui d'une 
touche faisant apparaitre "REM" 
puis le texte et <RETURN>. Il ne 
se passe alors rien, en 
apparence... L'appui d'une 
touche non mumérique après &T 
<RETURN> fait sortir du mode 
titre. 


Fonctionnement 


Ce programme : 

* revectorise l'ampersand, 

+ déroute CHRGET ($B1) et 
teste si on entre bien un numéro 
de ligne : 

- si oui, il écrit dans le buffer 
d'entrée ‘REM’, et un nombre de 
contrôle-H et d'espaces qui 
dépend de la longueur du numéro 
de ligne. 

- si non, il rend la main à 


Applesoft. 
G 


Récapitulation 
TITRES.OBJ 


0300- A9 4C 8D F5 03 A9 10 8D 
0308- F6 03 A9 03 8D F7 03 60 
0310- C9 54 FO 03 4C C9 DE 20 
0318- B1 00 DO 79 A9 01 8D 96 
0320- 03 A5 38 85 FE A5 39 85 
0328- FF A9 34 85 38 A9 03 85 
0330- 39 4C EA 03 20 1B FD 48 
0338- AD 96 03 DO 02 68 60 68 
0340- C9 B0O 30 08 C9 BA 10 04 
0348- 9D 00 02 60 EO 00 FO 3E 
0350- A9 D2 9D 00 02 20 5C DB 
0358- E8 A9 C5 9D 00 02 20 5C 
0360- DB E8 A9 CD 9D 00 02 20 
0368- 5C DB E8 8A 18 69 03 85 
0370- FC A9 88 9D 00 02 E8 C6 
0378- FC DO F8 8A 18 69 03 4A 
0380- 85 FC A9 A0 9D 00 02 E8 
0388- C6 FC DO F8 A9 81 48 A9 
0390- 00 8D 96 03 68 60 00 





1 4, M Des titres 
20REM dans le 
3 SREM Basic, 

0OREM Sylvie Gallet 


Programme TITRES.SCE 


(Assembleur Lisa 2.5) _ a 
1; 57 SUITE: 
2 * TITRES DANS UN 58 CMP #5B0 
3 * 59 BMI ECR.REM 
4 * PROGRAMME 60 CMP #SBA 
5 ; 61 BPL ECR.REM 
6; 62 STA $200,X 
7 HOOK EPZ $38 63 RTS 
8 AUX EPZ $FE 64 ; 
9 OUTDO EQU SDB5C 65 ECR.REM: 
10 KEYIN EQU $FD1B 66 CPX #50 
11 AMPER EQU $3F6 67 BEQ FIN 
12 X.REG EPZ $FC 68 LDA #"R" 
13 STXERR  EQU $DEC9 69 STA $200,X 
14 CHRGET EPZ $B1 70 JSR OUTDO 
15 ; 71 INX 
16 ORG 5300 72 LDA #'E" 
27 OBJ $300 73 STA $200,X 
18 ; 74 JSR OUTDO 
19 INIT: 75 INX 
20 LDA #$4C 76 LDA #"M" 
21 STA AMPER-1 77 STA $200,X 
22 LDA #DEB.TITR 78 JSR OUTDO 
23 STA AMPER 79 INX 
24 LDA /DEB.TITR 80 TXA 
25 STA AMPER+1 81 CLC 
26 RTS 82 ADC #53 
27 ; 83 STA X.REG 
28 DEB.TITR: 84 LDA #588 
29 CMP #'T' 85 ECR.CTRH: 
30 BEQ TITRE 86 STA $200,X 
31 JMP STXERR 87 INX 
32 TITRE: 88 DEC X.REG 
33 JSR CHRGET 89 BNE ECR.CTRH 
34 BNE RTS 20 TXA 
35 LDA #$01 91 CEE 
36 STA PASSE 92 ADC #53 
37 LDA HOOK 93 LSR 
38 STA AUX 94 STA X.REG 
39 LDA HOOK+1 95 LDA #$A0 
40 STA AUX+1 96 ECR.ESP: 
41 LDA #TESTS 97 STA $200,X 
42 STA HOOK 98 INX 
43 LDA /TESTS 99 DEC X.REG 
44 STA HOOK+1 100 BNE ECR.ESP 
45 JMP $3EA 101 LDA #$81 
46 ; 102 FIN: 
47 TESTS: 103 PHA 
48 JSR KEYIN 104 LDA #$0 
49 PHA 105 STA PASSE 
50 LDA PASSE 106 PLA 
51 BNE SUITE.PL 107 RTS: 
52 PLA 108 RTS 
53 RTS 109 PASSE BRK 
54 ; 110 LONGUEUR EQU PASSE+1-INIT 
55 SUITE.PL: 111 END 
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LM « 8Bp0. Macintosh est une marque sous licence chez Apple Computer, Inc. 





Tant qu'à faire 5 choses à la fois, 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
peuvent faire mieux. 

Jazz de Lotus, c’est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 








Pouvoir gérer cinq applications à 
partir d’un seul écran, modifier une 
donnée dans uné application et qu’elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c'est bien. 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d’un directeur 
de service. , 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 


















nouveau apparaît, rien n'est.plus 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 


a PT 
 E 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins, à 
chaque instant. 








Apple Computer France. Avenue de l'Océanie 






“autant les faire en même temps. 


é Fichier Edition SAMU Graphe Trace fixe Carac. Style 


| Presse-papiers 
Tableau des references 
UENTES 

Marche Choco 
REPARTITION 

Directeurs Lentes 





Bénéfice brut A fe 


Dee 


lertrim Zémetrim 3éèmetrim 


Apple, le logo Apple sont les marques déposées d'Apple Computer, Inc. 


Jazz est une marque déposée de Lotus Development Corporation. 





Feuille de travail Jazz. : L | mi à 
RE) Grâce à son gestionnaire de fichier, Jazz 


fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec Jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d’avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 


# 





Z.A, de Courtabœuf, B.P 131, 91944 Les Ulis Cedex. 
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de MOES 


MARIANNE SUEX 


Pom's publie des articles et 
programmes destinés au 
Macintosh depuis septembre 84 
(numéro 14) et nous nous 
sommes aperçu - non sans une 
certaine émotion - qu'aucun jeu 
n'avait encore trouvé sa place 
dans nos colonnes. 








Facilités 

Reporter la ligne précédente 

Dévoiler la première lettre 
Dévoiler la seconde lettre 
Dévoiler la troisième lettre 
Deuviter fe quatrièems fottre 


Dévoiler la cinquième lettre 
Dévoiler la solution 
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Di 
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Pour palier cela, nous vous proposons un petit casse-tête directement dérivé du 
célèbre “Master Mind”. Les couleurs ont été ici remplacées par les 26 lettres de 
l'alphabet et il ne s'agit plus de trouver des codes, mais des noms communs de 
cinq lettres choisies au hasard par le Macintosh. 


Utilisation du programme 


Le gros avantage du Macintosh, c'est qu'il n'est pas nécessaire - grâce aux menus 
déroulants - de passer plus de temps à l'écriture du mode d'emploi qu'à celle du 
programme. Le seul point qui ne soit pas évident concerne ici les réponses à vos 
essais : la colonne de réponse située au dessus du bouton "Valider" (voir la copie 
d'écran ci-contre) indique le nombre de lettres mal placées, alors que la colonne 
située plus à gauche indique le nombre de lettres bien placées, la somme des deux 
colonnes indiquant le nombre de lettres réellement présentes dans le mot recherché. 


Si vous ne disposez pas de la disquette 22... 


.… il vous faudra, bien sûr, saisir le programme et, dans ce cas quelques rappels et 
indications ne sont peut être pas inutiles : 


+ les indentations indiquent la continuité de la ligne ; 

-_il faut prendre garde à ne pas remplacer les 0 (zéro) par la lettre O (ou l'inverse) ; 

+ lorsque des valeurs en hexadécimal apparaissent dans le programme, il 
ne faut pas oublier le "&" ou le "h", 
surtout dans les DATA. 


Le programme ne fonctionne pas sans 
un fichier de mots ; sa création, avec le 
programme "Crefich" est donc 
nécessaire. Notons toutefois qu'il 
n'est pas indispensable d'avoir un très 
grand nombre de mots comme dans le 
fichier de la disquette 22 (2135). 















Mot numéro 2136 : 










BECEAAEEEER 





105 Mots 
pour commencer la 
constitution du fichier 


(ils sont extraits du fichier "Mots" 
accompagnant le programme sur la 
disquette 22, et constitué de 2135 
noms communs) 


ABACA ACCRU ADAGE AGAPE AGORA 
AIGLE AJOUT ALGOL ALLEU ALYTE 
AMIDE AMURE ANIER AORTE APPAT 
ARENE ARMEE ARYLE ATELE AUBIN 
AUTEL AVOIR BACHE BAGNE BALSA 
BARBE BARRE BATON BEDON BENET 
BERYL BIAIS BIFFE BILLE BLAIR 
BLUES BOGUE BONDE BOREE BOUEE 
BOXER BREME BROME BRUNI BULGE 
BUTOR CABRI CAGET CAYEU CALOT 
CANON CARAT CARME CASTE CELTE 
CESTE CHAUX CHIPS CHYME CIRSE 
CLICK COATI COGNE COLZA COPIE 
CORON COUAC CRABE CRAWL CREVE 
CROUP CUMIN CYGNE DAMAS DATTE 
DECCA DEGEL DELTA DESIR DIANE 
DINAR DJINN DONNE DOUVE DRILL 
DUITE EBATS ECOLE EDILE ELEIS 
EMPAN ENGIN EPAVE EPOUX ESTER 
ETHER EVADE EXODE FAIRE FANON 
FAUTE FELON FERTE FILET FIOLE 
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Programme “Jeu de mots” 


Ce programme requiert la présence d'un fichier de mots. Si 
vous ne disposez pas de la disquette 22, ce fichier peut être 
constitué à l'aide du programme "CreFich”. 


ON BREAK GOSUB Arret :BREAK ON 

DEFINT A-Z:DIM Rps(19),Rect (3),Rect2(3 
),Pat (3),Tget (45),Tget2(45),Tc(10,4 
),Tm(4),Tm2(4),Tma(4),NbS$(5),R£ff(7) 
,Rsm(7) :OPEN"R",1,"Mots",5:FIELD 
1,5 AS MotS$S:GET 1,1:Nm=CVI{(Mots$) : 
FOR I=0 TO 7:READ Me,MeS:MENU 5,1 
,Me,Me$ :NEXT:FOR I=0 TO 5:READ Nb 
$(I) :NEXT 

FOR I=0 TO 19:READ Rps(Il):NEXT:FOR I= 
0 TO 7:READ Rff(I):NEXT:FOR I=0 T 
© 7:READ Rsm(I) :NEXT:FOR I=0 TO 3 
:Pat (I)=&hAASS5S:NEXT:A!=VARPTR(RFÉ 
(0)):A!:A!=VARPTR(Rsm(0)):FOR I=1 
TO 5:A! I:NEXT:WINDOW 1,, (13,33) 
- (499,329), 4:GOSUB AffAlpha : GOSUB 
AffGril:GOSUB Init 

IF LOF(1)=0 THEN Erreur 


BattJeu: 

ON DIALOG GOSUB Dial:ON MOUSE GOSUB 
SpZ:ON MENU GOSUB Men:DIALOG ON 
: MOUSE ON:MENU ON:MENU 5,0,1: 

Batt: 

K$S=INKEYS:IF K$S<>"" THEN GOSUB Touche 

GOTO Batt 


BAttAutre: 

ON DIALOG GOSUB DialAutre:DIALOG ON: 
MENU OFF :MOUSE OFF:MENU 5,0,0 

BAttA: 

GOTO BATTa 


Spz : 

DIALOG OFF:MOUSE OFF:Drz=5:A!=VARPTR 
(Rps(3)):A! 468,260,280,4:IF Rps(0) 
THEN Drz=4 

A! 48,281,21,21:IF Rps(0) THEN Drz=1 

A! 88,281,61,21:IF Rps(0) THEN Drz=2 

A! 128,281,101,21:IF Rps(0) THEN Drz=3 

ON Drz GOSUB Z1,2Z2,23,Z4,Z5:DIALOG ON 
: MOUSE ON:RETURN 


22} 

X1=21:X2=-48:C=64:GOSUB SpZ2:RETURN 

22: 

X1=61:X2=88:C=-73:GOSUB SpZ2:RETURN 

23: 

X1=101:X2=128:C=-82:GOSUB SpZ2:IF Nc=91 
THEN Nc=0 

RETURN 





Z4: 


Dp=-1:C1l=0:FOR X=0 TO 4:X2=40*X:A!=VAR 
PTR(Rps(3)):A! 308+X2,260,280+X2,4 
:IF Rps(0)=0 THEN Z4b 

PUT(281+X2,5126*(L-1)),Tget,PSET:Tc({(L, 
X)=Nc:But=BUTTON(l):IF But=1 THEN 
IF Nc<65 THEN BUTTON 1,0:GOTO Z 
4b 

FOR I=0 TO 4:IF Tc(L,I)<65 THEN Dp=0 

NEXT:IF Dp THEN BUTTON 1,1 

Z4b: 

NEXT :RETURN 


29: 
BEEP : RETURN 


Sp22 : 

A!=VARPTR(Rps(3)):FOR Y=21 TO 261 STE 
P 30:C=C+l1:A! X2,Y+20,X1,Y:IF Rps( 
0) AND C<>Nc THEN INVERTRECT VAR 
PTR(Rect2(0)):GET(X1,Y)-(X2,Y+20), 
Tget :Rect2(0)=Y:Rect2(1)=X1:Rect2(2 
)=Y+21:Rect2(3)=X2:INVERTRECT VAR 
PTR(Rect2(0)):Nc=C 

NEXT : RETURN 


Bo: 
BUTTON 1,0,"Valider",(210,4+26*(L-1))-( 
270,26+26*(L-1)) : RETURN 


Dial: 

IF DIALOG(0)<>1 THEN RETURN 

DIALOG OFF:L=L+1:IF L>1l AND L<l1l THEN 
MENU 5,1,1 

IF L<11 THEN GOSUB Bo ELSE BUTTON CL 
OSE 1:MENU 5,1,0 

L2=26*(L-2):FOR I=0 TO 4:Tm2(I)=Tm(I):T 
ma(I)=Tc(L-1l,I) :NEXT:LINE(140, 4+L2 
)-(200,24+L2),,B:LINE(210,4+L2)-(2 
70,24+L2),,B:LINE(140,6+L2)-(200,2 
6+L2),,B:LINE (210, 6+L2)-(270,26+L2 
),,B:Bp=0:Mp=0:FOR I=0 TO 4:IF Tma 
(I) =Tm2 (I) THEN Bp=Bp+1:Tma(Il)=0:T 
m2 (I) =-1 

NEXT:FOR I=0 TO 4:FOR J=0 TO 4:IF Tma 
(I) =Tm2 (J) THEN Mp=Mp+1:Tma(I)=0:T 
m2 (J)=-1 

NEXT :NEXT :MOVETO 170-WIDTH (NDS (Bp))/ 
2,20+L2:PRINT NES (Bp) ; :MOVETO 240 
-WIDTH (NDS (Mp))/2,20+L2:PRINT Nb$S 
(Mp) ;: IF Bp<>5 THEN Dial2 

IF L<11 THEN BUTTON CLOSE 1 

GOSUB TrouveO:GOTO Dials 

Dial2: 

IF L=11 THEN GOSUB TrouveN:GOTO Dials 

FOR X=0 TO 4:X2=40*X:IF Tc(L,X)=0 THEN 
LINE (281+X*40,5+(L-1)*26)-(307+X* 
40,25+(L-1)*26),30,BF 

NEXT:DIALOG ON:RETURN 

Dials: 
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DIALOG ON:RETURN BAttAutre 


SpCM: 

RANDOMIZE TIMER:GET 1, INT (RND*Nm) +2: 
M$=Mot$S:FOR I=0 TO 4:Tm(Il)=ASC(MI 
D$(M$,I+1,1)):NEXT:RETURN 


AffAlpha: 

TEXTFONT 0:TEXTSIZE 24:TEXTMODE 1:C= 
64:FOR X=0 TO 2:X2=40*X:FOR Y=0 T 
O 8:Y2=Y*30:LINE(22+X2,21+Y2)-(50+ 
X2,43+Y2),,BF:LINE(20+X2,20+Y2)-(4 
8+X2,42+Y2),,B:LINE(21+X2,21+Y2)-( 
47+X2,41+Y2),30,BF:C=C+1 

IF C<91 THEN MOVETO (35+X2)-WIDTH(CH 
R$(C))/2,40+Y2:PRINT CHR$(C); 

NEXT:NEXT:GET(21,21)-(48,42),Tget:Rect 
2(0)=21:Rect2(1)=21:Rect2(2)=42:Rec 
t2(3)=48:INVERTRECT VARPTR(Rect2 
(0) ) : RETURN 


AffGril: 

FOR X=0 TO 4:X2=40*X:FOR Y=0 TO 9:Y2=Y 
*26:LINE(280+X2,4+Y2)-(308+X2,26+Y 
2),,B:IF Y THEN Rect (0)=5+Y2:Rect( 
1)=281+X2:Rect (2)=26+Y2:Rect (3) =308 
+X2:FILLRECT VARPTR(Rect (0)),VAR 
PTR(Pat (0)) 

NEXT : LINE (280+X2,268)-(308+X2,290),,B: 
MOVETO 294+X2-WIDTH("?")/2,288:PR 
INT"?";:NEXT:LINE(280,264)-(468,2 
64) : RETURN 


Tnt: 

FOR I=0 TO 7:MENU 5,1, (I<2)+1:NEXT:L= 
1:GOSUB Bo:Drok=0:Drz=0:Nc=65:FOR 
X=0 TO 4:FOR Y=1 TO 10:Tc(Y,X)=0:N 
EXT:NEXT:GOSUB SpCM:TEXTSIZE 12: 
Nmenu1l=4:RETURN 


TrouveO: 

Dtr=-1:GOTO Trouve 

TrouveN: 

Dtr=0 

Trouve: 

GOSUB AffSol 

IF L>5 THEN WINDOW 2,, (30,50)-(270,120 
),2 ELSE WINDOW 2,, (30,240)-(270, 
310),2 

TEXTFONT 0:TEXTMODE 1l:TEXTSIZE 12:I 
F Dtr THEN MOVETO 10,15:PRINT"Br 
avo !”" 

MOVETO 10,31:PRINT "le mot était";:IF 

Dtr THEN PRINT" bien"; 

PRINT" “" M$ "”":BUTTON 1,1, "Autre par 
tie",(5,45)-(100, 65) : BUTTON 2,1, "Q 
uitter", (140,45)-(235, 65) 

RETURN 


DialAutre: 


IF DIALOG(0)<>1 THEN RETURN 
IF DIALOG(1)=2 THEN WINDOW CLOSE 2:W 
INDOW CLOSE 1l:SYSTEM 
WINDOW CLOSE 2:CLS:BUTTON CLOSE 1:G 
OSUB AffAlpha:GOSUB AffGril:GOSUB 
init : RETURN BattJeu 


Touche: 

Nn=ASC(KS$) :IF Nn=32 THEN Numc=2:Numl=8 
:C=Nn:GOTO Touche2 

Nn=ASC(K$) AND &h5F:IF Nn<65 OR Nn>90 
THEN RETURN ELSE C=Nn:Numc=INTi( 
Nn-65)/9):Numl=(Nn-65) MOD 9 

Touche2: 

IF C=Nc THEN RETURN 

INVERTRECT VARPTR(Rect2(0)):GOSUB Ge 
tCar:INVERTRECT VARPTR(Rect2(0)) 
:Nc=C:DIALOG ON:RETURN 


GetCar: 

Rect2(0)=21+Numl*30:Rect2(1)=21+Numc*40: 
Rect2 (2) =42+Numl*30:Rect2(3)=48+Num 
c*40:GET(Rect2(1),Rect2(0))-(Rect2 
(3)-1,Rect2(2)-1), Tget : RETURN 


AffSol: 

INVERTRECT VARPTR(Rect2(0)):FOR I=0 
TO 4:Numc=INT((Tm(Il)-65)/9):Numl=( 
Tm(Il)-65) MOD 9:GOSUB GetCar:LINE 
(278+40*I1,266)-(310+40*I,292),,BF:P 
UT (281+40*I,269),Tget,PSET:NEXT:R 
ETURN 


Men : 

MENU OFF :MENU:Nmenu=MENU (1) :ON Nmenu 
GOSUB MenRrp,MenL, MenL,MenL,MenL, M 
enL,MensSol 

IF Nmenu=7 THEN RETURN BAttAutre ELSE 

MENU ON:RETURN 


MenRrp: 

FOR X=0 TO 4:X2=40*X:Y2=(L-1) *26:Y1=Y2- 
26:GET(281+X2,5+Y1)-(307+X2,25+Y1) 
, Tget2:PUT(281+X2,5+Y2),Tget2,PSET 
:Tc(L,X)=Tc(L-1,X) :NEXT:BUTTON 1, 
1:MENU 5,1,0:RETURN …. 

MenL : 

MENU 5, Nmenu, 0 : Nmenu=Nmenu-2 : INVERTRE 
CT VARPTR(Rect2(0)):Numc=INT((Tm( 
Nmenu) -65)/9) :Numl=(Tm(Nmenu)-65) M 
©OD 9:Rect (0)=21+Numl*30:Rect (1) =21+ 
Numc*40:Rect (2)=42+Numl*30:Rect (3) = 
48+Numc*40:GET(Rect (1),Rect (0))-(R 
ect (3) -1,Rect (2)-1), Tget2 
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LINE (278+40*Nmenu, 266)-(310+40*Nmenu, 29 
2),,BF:PUT(281+40*Nmenu, 269), Tget2 
, PSET:X2=40*Nmenu:FOR Y=L-1 TO 9: 
Tc(Y+1,Nmenu) =Tm(Nmenu) : Y2=Y*26:PU 
T(281+X2,5+Y2),Tget2,PSET:NEXT:Nm 
enul=Nmenul-1l:IF Nmenul=0 THEN FO 
R I=2 TO 6:MENU 5,1,0:NEXT 

INVERTRECT VARPTR(Rect2(0)):RETURN 


MenSol : 
GOSUB TrouvenN:RETURN 


Arret: 
RETURN 


Erreur: 

BEEP : WINDOW 1,, (100,120)-(412,160),2:T 
EXTFONT 0:TEXTMODE 1l:TEXTSIZE 1 
2:MOVETO 10,15:PRINT"Désolé, pas 
de fichier de mots accessible…":BU 
TTON 1,1,"OK", (240,20)-(300, 40) : ON 

DIALOG GOSUB DialEr:DIALOG ON 


Programme “CreFich” 


ON BREAK GOSUB Arret : BREAK ON:DEFIN 
T A-Z:DIM Rff(7),Rsm(7):FOR I=0 T 
© 7:READ Rff(I):NEXT:FOR I=0 TO 7 
:READ Rsm(I) :NEXT 

A!=VARPTR(Rff(0)):A!:A!-=VARPTR(Rsm(0)) 
:FOR I=1 TO 2:A! I:NEXT:FOR I=4 T 
© 6:A! I:NEXT:WINDOW 1,, (180,120) 
—(332,210),4:GOSUB Text :OPEN"R",1 
, "Mots",5:FIELD 1,5 AS Mots 

IF LOF(l1) THEN GET 1,1:Nm=CVI(Mot$)+1 
ELSE Nm=1:LSET Mot$=MKIS$ (Nm) : PUT 
1,1 

MOVETO 10,20:PRINT"Mot numéro":GOSUB 
AffN:EDIT FIELD 1,"",(40,30)-(110 
45) : BUTTON 1,1,"OK",(10,60)-(71,8 
0) :BUTTON 2,1, "Quitter", (81,60)-(1 
42,80):ON DIALOG GOSUB Dial:DIAL 
OG ON 

BAtt : 

GOTO BAtt 


Dial: 

DIALOG OFF:W0O=WINDOW(0) :W1=WINDOW(1) 
:DO=DIALOG (0) :D1=DIALOG(1):IF W1l= 
2 THEN WINDOW CLOSE 2:WINDOW 1: 
EDIT FIELD 1,M$, (40,30)-(110, 45): 
DIALOG ON:RETURN 

IF D0=1 THEN SPb ELSE IF D0=6 THEN SP 
d 

DIALOG ON:RETURN 

SPb: 
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AttEr: 
GOTO AttER 


DialEr: 
WINDOW CLOSE 1:MENU RESET:END 


DATA 0,Facilités,0,Reporter la ligne pr 
écédente,l,Dévoiler la première let 
tre,l,Dévoiler la seconde lettre,l, 
Dévoiler la troisième lettre, 1l,Dévo 
iler la quatrième lettre,l,Dévoiler 

la cinquième lettre,l,Dévoiler la 
solution 

DATA AUCUNE, UNE, DEUX, TROIS, QUATRE, CINQ 

DATA 0,0,0,&h4E56,0,&h487A, &hFFF6, &hA97 
2,&h4267,&h47FA, &hFFEE, &h2F13,&h486 
E, 8,&hA8AD, &h47FA, &hFFEO0, &h369F,&h4 
E5E, &h4E75 

DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07 
, &hA916,&h60F2, &h4E75 

DATA &h4E56,0,&h3F2E, 8,&hA936,&hA937,€&h 
4E5E, &h4E75 


IF D1=2 THEN LSET MotS$=MKIS$S (Nm-1) : PUT 
1,1:CLOSE:WINDOW CLOSE 1:SYSTE 
M 
Spd: 
M$S=EDITS(l):IF LEN(MS)<>5 THEN GOSUB 
Erreur:DIALOG ON:RETURN 
DP=0:FOR i=1 TO 5:LS$S=-MIDS(M$,I,1):IF L 
S<'"A" OR L$S>"Z" THEN DP=-1 
NEXT:IF DP THEN GOSUB Erreur:DIALOG 
ON : RETURN 
LSET Mot $=MS$S:Nm=Nmt+l:PUT 1,Nm:GOSUB Af 
ÉN:EDIT FIELD 1,"",;-(40,30)-(110, 4 
5) :DIALOG ON:RETURN 


Af£N: 

LINE (90,0)-(152,24),30,BF:MOVETO 90,20 
:PRINT Nm'":":RETURN 

Erreur: 


WINDOW 2,,(100,160)-(412,200),2:GOSUB 
Text :MOVETO 10,15:PRINT'"Mots de c 
ing lettres majuscules SVP":BUTTON 

1,1,"OK", (240,20)-(300, 40) : RETURN 


Text : 

TEXTFONT 0:TEXTMODE l:TEXTSIZE 12:R 
ETURN 

Arret: 

RETURN 


DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07 
, &RA916, &h60F2,&h4E75, &H4E56, 0, &H3F 
2E, 8, &HA936, &HA937, &H4E5E, &H4E75 
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De nombreux lecteurs qui utilisent Apple // et 
Macintosh nous ont demandé un programme 
permettant de transmettre des données dans 
le sens Apple // > Mac. Rappelons que le 
programme paru dans le Pom's 14 assurait la 
transmission dans l'autre sens. 


Mode d'emploi 


Côté Apple // : Configurer la carte série 
comme indiqué ci-contre. Puis adresser les 
données vers la carte. Si vous transmettez un 
programme Basic, faites PR#1 (si la carte est 
en slot 1) puis LIST. Pour éviter de fâcheux 
retours chariot, faites préalablement POKE 
33,33. Sous AppleWriter, dans le menu 
impression mettre la marge droite à 255, puis 
faire NP. 


Côté Mac : Exécuter le programme Basic 
ci-contre, le câble étant connecté au port 
Modem. Ce programme étant réduit au strict 
nécessaire, il vous appartient dès la fin de la 
transmission d'arrêter le programme puis de 
faire en mode direct dans la fenêtre de 
commande : CLOSE. 


Il nous a été possible de transmettre par 
exemple le programme de calcul de x du 
Pom's 21 et de l'exécuter avec succès 
moyennant de menues modifications de 
syntaxe. La transmission d'image HGR est 
également envisageable : au lieu d'écrire dans 
un fichier, il s'agit de stocker dans la 
mémoire-écran. 


Programme de 
transfert 
Apple// -> Mac 


DEFINT A-Z 

CLS 

TEXTFONT 4 

TEXTSIZE 9 

F$=FILES$ (0,"Fichier de s 
auvegarde ?") 

IF F$=-"" THEN END 

WIDTH "SCRN:",80 

OPEN “COM1:300,N, 7,1" FOR 
INPUT AS 1 

OPEN"O",2,FS$S 

10 C$=INPUT$S (1,1) 

IF C$="{" THEN C$="é" 

IF C$="}" THEN C$="è" 

IF C$="@" THEN C$="à" 

IF C$="\" THEN C$="ç" 

IF C$="/" THEN C$="ù" 

PRINT C$; 

PRINT #2,C$; 

GOTO 10 





Transferts /| — Mac 


Configuration de 
la carte Super Série 





“Jumper Bloc” 
en position "MODEM" 





CUBE : un jeu en accessoire 


MEGAROIDS : un jeu d'adresse 


Disquette Mac ‘A’ 


SORT MENU, un utilitaire de tri de menus, 

PAINT MOVER : copier et manipuler les images MacPaint 

ACCESSOIRES DE BUREAU ‘MOCK’ : mini-traitement de texte, grapheur et terminal 
CONVERT DAM : pour passer de DA Mover à Font D/A Mover 

FEDIT : un éditeur de blocs et de fichiers (en anglais) 


IDLE : pour préserver votre écran durant de longs traitements 
MULTISCRAP :-accessoire permettant de diposer de plusieurs albums à la fois 
C CHECK : Pour vérifier les niveaux de parenthèses en langage ‘C’ 

HEX CAL : l'indispensable calculatrice hexadécimale 


MEM WINDOW : permet de lister la mémoire du Mac 
Disquette Mac ‘A’ : 80,00 F TTC Franco, Bon de Commande page 74 


Megaroïds Conversion DAM Fedit 3.0 hstall loon 


O EE << © 


Annuaire Conf Terminal  SortMenu HexCale 


& D & 


Men indowr Escher PaintMover 








Disquette Mac 22 


Clavier 
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DIFIG] 
ACUANARAE 
RE 


correspondant 
commentaires d'utilisation se 
la disquette. Le nouveau F 


hiérarchisé. 

Il s'activera dès que le 
support magnétique (disque 
ou disquette) aura plus de 
400Ko de capacité. 


Vous trouverez sur la disquette, outre le nouveau fichier System et le nouveau 
Finder, le driver ImageWriter2, le driver Laser Writer pour Mac 128K et deux 
nouveaux accessoires de bureau : un sélecteur d'imprimante reconnaissant entre 
autres les deux types d'ImageWriter et, dans le tableau de bord, la possibilité 
de définir un cache-mémoire. Un cache-mémoire fait ce que faisait le Mac 
Booster d'ACI : mettre, dans une mémoire vive dont la taille est fixée par 
l'utilisateur, les éléments les plus souvent utilisés, cette fréquence d'utilisation 
étant appréciée par le programme de cache. Cela permet de nettement réduire 
les temps de réponse du Mac.L'accessoire "Clavier" autorise désormais l'essai 
des différentes polices présentes dans le système. Enfin, la disquette Pom's 


contient aussi une nouvelle version de “Font DA/Mover”. 


optionnelle, des mini-icônes et certains nouveaux gadgets 
pour le rangement des icônes. Ce qui fait vraiment son 
originalité, c'est le HFS : Hierarchical File System. Voici 
enfin un système de gestion de fichiers réellement 


Vous trouverez sur la disquette d'accompagnement Macintosh de ce numéro, 
outre les programmes publiés dans le cahier Mac, le nouveau système 
à la version 5.1 du Finder. 


Les 
trouveront directement sur 
inder comprend, de façon 


Présentation 
par petite icône 

par icône 

par nom 

par date 

par taille 

par type 


EC—— Tableau de bord =—_—Z—2—= 


| 


Fond de l'écran 
+ + F- 

2 +0+@e+0O 

Fi) Vitesse du double-ctio 





















AppkTalk 
Connecté 








Giissement Souris 


















O Vo 
Clignotement du Souris Tablette Îhaut-Par leur 
point d'insertion (O@O 

Lent Rapide 






















Répétition des touches 


000®@0 


Lent Rapide 


Pause avant répétition 
O O@00 
O Long Court 





Pom's n° 22 


(e) 





rurerparelléléeirècdes 


[4 Que faire avec l'écran du 
Macintosh ?” Séduit par 
sa finesse de définition, 
particulièrement lorsque 
l'on vient de l'Apple //, voici la 
question que l'on peut se poser. 
Le programme qui suit a été écrit 
en se pliant aux contraintes 
suivantes : utiliser pleinement la 
haute résolution, respecter les 
conventions de présentation Mac’ 
et, si possible, être inutile... Dans 
un premier temps, le dessin d'une 
courbe qui pourrait évoluer en 
finesse a été le but de ce 
programme. 


Fractal 


Hyperpariélépipède 





Voici quelques mots de théorie 
sur la courbe qu'étudia Von 
Koch. Considérons le segment de 
droite suivant : 


Ce segment est divisé en trois 
parties égales. La partie centrale 
disparaît et est remplacée par les 
deux autres côtés d'un triangle 
équilatéral dont elle servait de 
base. Nous obtenons alors le 
fractal d'ordre 1 : 


La figure ainsi obtenue comprend 
maintenant quatre segments de 
longueurs égales. Faisons subir le 
même sort à chacun d'eux, il en 
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résultera évidemment le fractal 
d'ordre 2 : 


Notons au passage que cette 
figure comprend seize segments. 
A chaque nouvelle étape dans la 
constructions de nos fractaux 
(fractals ?), le nombre de 
segments est multiplié par quatre. 
La longueur de chacun d'entre 
eux est égale au tiers de ceux du 
fractal d'ordre immédiatement 
inférieur. 

Pour un fractal d'ordre n dont 
l'élément de base mesurait une 
unité, nous trouvons : 

4" côtés ayant chacun une 
longueur de 1/(3°). La longueur 
dévéloppée est donc : 47/31, Cette 
fonction, de type exponentiel, 
tend vers l'infini lorsque n tend 


Figure : 


i 
© triangle <- 
Q triangle -> 
© heragone <- 
© hexagone -> 


O0®@000 
RON — 0 





vers l'infini : le calcul de la 
longueur développée peut donc 
rapidement provoquer un 
overflow sans pour autant que le 
dessin prenne plus de place sur 
votre écran. 


Un fractal d'ordre 5 ne compren- . 
dra pas moins de 1024 (1 K !) 
segments totalisant environ 4,213 
unités de longueur. 


Lorsque n tend vers l'infini, la 
courbe qui en résulte s'inscrit 
dans un espace à 1,26 dimen- 
sion ! plus précisément : 
log(4)/log(3), 

autrement dit un nombre non 
entier. Le caractère ésotérique de 
la chose ne vous échappera pas ; 
le programme lui, ne s'attache 
qu'à son aspect esthétique. 


Il vous propose de tracer ces 
figures en prenant pour base un 
triangle ou un hexagone, avec un 
développement interne ou externe. 
Il vous permet de superposer les 
graphes pour l'obtention de 
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dessins du plus bel effet, flocons 
de neige par exemple. 





AE LE 


Plus insaisissable (?) que le 
fractal : l'hyperparallélépipède. 
Le prétexte à nos dessins est 
maintenant la représentation en 
deux dimensions (notre écran) de 
parallélépipèdes en comprenant de 
3 à 8. Le résultat, s'il est 
totalement incompréhensible, est 
souvent particulièrement élégant. 





Si nous prenons le cube suivant : 





nous voyons que quatre données 





Tracés de fractaux et 
hyperparallélépipèdes 


REM Initialisations - tableaux et 


constantes 


ont suffit à sa construction : 
l'origine O et les trois vecteurs I, 
J, K. Aïnsi, la position de chaque 
sommet pourra s'obtenir par la 
simple combinaison des différents 
vecteurs : Si = O-J + OK par 
exemple. 


Vous allez pouvoir dessiner des 
parallélépipèdes en indiquant 
successivement l'origine puis les 
trois à huit vecteurs. Il seront 
représentés à l'écran en suivant 
les règles qui ont servi pour la 
construction du cube. 


Ce premier curseur : cn 


vous permet de positionner 


l'origine. Elle est alors 
matérialisée ainsi : 
Ce nouveau curseur: 


vous permet de définir les 
différents vecteurs. Ils se 
matérialiseront ainsi : + 


Voici l'origine et le premier 





vecteur : 


Un disposition comprenant une 
origine et 3 vecteurs vous donnera 
un volume bien réel, en-deçà de 
l“‘espace-temps” ! Par la suite, en 
ajoutant des vecteurs, on dépasse 
cette limite et on se surprend à 
passer beaucoup de temps, dans 
un premier temps, à essayer de 
deviner le futur dessin puis à créer 
des formes esthétiques. 

Pour le reste de la présentation, 
les menus Mac ne présentent 
aucun secret. 

Le Basic qui suit utilise des 
routines en assembleur extraites 
des précédents numéros de 
Pom's, pour les traitements 
suivants : 


+ suppression des menus (cf 
Pom's 17), 

* récupération des curseurs (cf 
Pom's 18), 

+ récupération des icônes (cf 
Pom's 18), 

+ récupération de la position de 
la souris (cf Pom's 19), 

+ fermeture de fenêtres (cf 


Pom's 19). . 





cf Pom's n° 17 


DATA &h4E56,0,&h3F2E, 8,&hA936,&hA937,&h 
4E5E, &h4E75 


REM Routine de récupération des 


curseurs - cf Pom's n° 18 


BREAK ON:ON BREAK GOSUB BRK:HIDECUR 
SOR:DEFINT A-Z:Unitl#-=1/3:Unit2#= 
1/2:Unit3#=-2/3:Vect2#=SQR(3)/6:PId 
iv6#=3.1415926#/6:DIM Lm(15),Pat (3 
),Rect (3),Sr(19),Xn(256),Yn(256),V 
ectX(8),VectY(8),Xvect(8),Yvect (8) 
/.Nn(8),Iicone(18),TIcone(65) 

FOR I=0 TO 3:Pat (I)=&hAASS5S:NEXT:Dtr=-1 


REM Data pour implantation des routines 
en langage machine 

REM Routine de fermeture des fenêtres - 
cf Pom's n° 19 


DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07 
, &hA916,&h60F2, &h4E75 


REM Routine de suppression des menus - 


DATA &h4E56,0,&h42A7,&h3F2E, 8, &hA9B9, &h 
2057,&h2E90, &hA851, &h4E5E, &h4E75 


REM Routine de détection de la position 
de la souris - cf Pom's n° 19 


DATA 0,0,0,&h4E56,0,&h487A, &hFFF6, &hA97 
2,&h4267,&h47FA, &hFFEE, &h2F13,&h48 
6E, 8,&hA8AD, &h47FA, &hFFE0,&h369F,& 
h4ESE, &h4E75 


REM Routine de récupération des icônes 
- cf Pom'sn°18 


DATA &h4E56,0,&h42A7,&h3F2E, &hC, &hA9BB, 
&h2057,&h2250, &h246E, 8, &h24FC, 32,3 
2,&h701F,&h24D9, &h51C8, &hFFFC, &h4E 
5E, &h4E75 

CM$="A09F9DD783DCD08295868595D09682919E9 
39F80989F9E95D0999E947E80959E94919 
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E8495D0809F8582D09CD78584999C99839 
184958582D09485D0BD9193999E849F839 
8":FOR I=1 TO LEN(CMS)-1 STEP 2:C 
M2$=CM2$+CHRS (VAL ("&h"+MIDS$S (CMS, 

I,2)) XOR &hF0) :NEXT 


REM Lecture des Data, implantation des 
routines en mémoire, fermeture des 
fenêtres, suppression des menus 
inutiles et configuration des 
menus conservés 

FOR I=0 TO 15:READ Lm(Il):NEXT:FOR I=0 

TO 10:READ Cur(Il):NEXT:FOR I=0 
TO 19:READ Sr(I):NEXT:FOR I=0 TO 
18:READ Icone (I):NEXT:A!/=VARPTR 
(Lm(0)) :A! 

MENU 3,0,1,CHRS$ (20) :MENU 3,1,1,CM2$:M 
ENU 4,0,1,"Arrêt":MENU 4,1,1,"Qui 
tter":MENU 5,0,0,"Tracé":MENU 5,1 
,2, “Fractal'":MENU 5,2,1, "Hyperpara 
llélépipède":A!=VARPTR(Lm(8)):FOR 

I=0 TO 3:A! I:NEXT:ERASE Lm:GOS 
UB Ffr:ON MENU GOSUB Mfr 


REM Boucle d'attente pour l'option 
"Fractal" 

Bfr2: 

MENU ON:DIALOG ON:ON DIALOG GOSUB D 
fr 

Bfr: 

IF MOUSE(0) THEN GOSUB Sfr 

GOTO Bfr 


REM On ignore "Commande-Majuscule- ." 
BKK: 
RETÜRN 


REM Boucle d'attente pour l'option 

"Hyperparallélépipède" et 

modification de la forme du 

curseur si nécessaire 

BHy2 : 

MENU ON:DIALOG ON 

BHy3 : 

ON DIALOG GOSUB DHy 

BHy : 

IF MOUSE(0) THEN GOSUB SHy 

IF BUTTON(1)=0 THEN BHy 

A!=VARPTR(Sr(3)):A! 500,310,440,290:IF 
Sr(0) THEN Dbo 

Hbo: 

IF Dour THEN A!-VARPTR(Cur(0)):A! 2:Dc 
ur=0 

GOTO BHy 

DBo : 

IF NOT Dcur THEN INITCURSOR:Dcur=-1 

GOTO BHy 


REM Boucle d'attente d'une action sur 
le bouton 


"Autre" 
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Z 
\A 

















LCR 
NA 
af 
TA 
Att: 


ON DIALOG GOSUB Att2:DIALOG ON 

BAtt : 

GOTO BAtt 

Att2: 

IF DIALOG(0)=1 THEN CLS:BUTTON 10" 
Valider", (440,290)-(500,310) :A!=vA 
RPTR(Cur(0)):A! 3:Drch=0:RETURN B 
Hy3 ELSE RETURN 


REM Traitement d'une action dans la 
barre des menus 

Mfr: 

MENU : Me0=MENU (0) :Mel=MENU(l):IF me0=3 

THEN RETURN ELSE IF Me0=4 AND 

Mel=1 THEN SYSTEM ELSE IF Mel=1 
AND Dtr OR Mel=2 AND NOT Dtr THE 
N RETURN 

MENU 5,0,0:MENU OFF:DIALOG OFF:A!=VA 
RPTR(Cur(0)):A! 4 

IF Mel=1 THEN Dtr=-1l:MENU 5,1,2:MENU 
5,2, 1:WINDOW CLOSE 1:GOSUB Ffr: 
RETURN Bfr2 

Dtr=0:MENU 5,1,1:MENU 5,2,2:WINDOW CL 
OSE l:WINDOW CLOSE 2:GOSUB FHy: 
RETURN BHy2 


REM Traitement d'une action sur le 
bouton de la souris pour l'option 
"Fractal" 

SCT: 

IF WINDOW(0)=2 THEN RETURN ELSE Rect 
Y=MOUSE (2) :RectX=MOUSE (1) 

WHILE MOUSE (0) =-1:Mol=MOUSE (1) :Mo2=MO 
USE (2) :Rect (0)=RectY:Rect (2)=Mo2:R 
ect (1)=RectX:Rect (3) =Mol 

IF Mo2<RectY THEN SWAP Rect (0),Rect (2) 

IF Mol<RectX THEN SWAP Rect(l),Rect (3) 

A!=VARPTR(Sr(3)):A! 382,315,1,1:IF Sr( 
0) THEN FRAMERECT VARPTR(Rect (0 
)) :FRAMERECT VARPTR(Rect (0)) 

WEND:IF Sr(0)=0 THEN RETURN 

X=(Rect (3) -Rect (1) )/2:Y=(Rect (2) -Rect (0) 
)/2:Cx=XtRect (1) :Cy=Y+Rect (0) :IF X 
<5 OR Y<5 THEN RETURN 








A!=VARPTR(Cur(0)):A! 4:MENU 5,0,0:DIA 
LOG OFF:ON Fig GOSUB Dtr,Htr,Dhe 
,; Hhe : 

INITCURSOR:WINDOW 2:MENU 5,0,1:DIAL 
OG ON:IF BUTTON(11)=-0 THEN BUTT 
ON 11,1 

RETURN 


REM Traitement d'une action sur le 
bouton de la souris pour l'option 
"Hyperparallélépipède" 

SHy: 

WHILE MOUSE (0) :WEND:RectY=MOUSE(2):R 
ectX=MOUSE(1):IF Drch THEN SHy2 
ELSE Drch=-1l:Ind=-1:CIRCLE(Rectx, 
RectY),5:LINE(RectX-10,RectY)-(Rec 
tX+10,RectY) :LINE(RectX,RectY-10)- 
(RectX,RectY+10) :Xorg=RectX:Yorg=R 
ectY:A!/=VARPTR(Cur(0)):A! 2:Dcur= 
0 : RETURN 

SHy2: 

IF Ind<>7 THEN SHy3 

DIALOG OFF:BUTTON 1,0:DIALOG OFF:BE 
EP:WINDOW 2,,(140,150)-(372,203), 
4:A!=VARPTR(Icone(0)):A! 1,VARPT 
R(TIcone (0)) :PUT(10,10),TIcone:TE 
XTFONT 0:TEXTMODE 1l:TEXTFACE O0: 
TEXTSIZE 12:MOVETO 60,24:PRINT" 
Pas plus de huit” 

MOVETO 60,40:PRINT'"vecteurs, S.V.P..";: 
BUTTON 1,1,"OK",(188,14)-(220,38) 
:ON DIALOG GOSUB Bok:DIALOG ON 

BBHy : 

GOTO BBHy 

BBHy2: 

RETURN BHy2 


REM traitement d'une action sur le 
bouton "OK" et mise à jour de la 
fenêtre (option 
“"Hyperparallélépipède") 

Bok : 

IF DIALOG(0)<>1 OR DIALOG(1)<>1 THEN 
RETURN 

DIALOG OFF:WINDOW CLOSE 2:WINDOW 1: 
BUTTON 1,1:DIALOG ON:PENMODE 8 


CIRCLE (Xorg, Yorg),5:LINE(Xorg-10,Yorg) 

-(Xorg+10, Yorg) : LINE (Xorg, Yorg-10) 
: -(Xorg, Yorg+10):FOR Z=0 TO 7:Vix= 

VectX(Z) +Xorg:Viy=VectY(Z)+Yorg 

LINE(Vix-2,Viy-2)-(Vix+2,Viy+2),,BF:LI 
NE(Vix-5,Viy)-(Vix+5,Viy):LINE (Vi 
X, Viy-5)-(Vix, Viy+5) :MOVETO Xorg, 
Yorg:LINETO VectX(Z) +Xorg, VectY(Z 
)+Yorg:NEXT:PENMODE 10 

RETURN BBHy2 


REM suite traitement d'une action sur 
le bouton de la souris pour 
l'option "Hyperparallélépipède" 

SHy3 : 

Ind=Ind+1:VectX(Ind)-RectX-Xorg:VectY(In 
d)=RectY-Yorg:Nn(Ind)=0:LINE (RectX 
—-2,RectY-2)-(RectX+2,RectY+2),,BF: 
LINE (RectX-5,RectY)-(RectX+5,RectY 
) :LINE (RectX,RectY-5)-(RectX,RectY 
+5) 

MOVETO Xorg, Yorg:LINETO RectX,RectY:I 
F Ind=1l THEN BUTTON 1,1 

RETURN 


REM Traitement d'un événement de type 
"Dialog" pour l'option "“fractal" 

DÉE: 

DIALOG OFF:Dia=DIALOG(0):IF Dia<>l T 
HEN Dfr2 

IF DIALOG(1)=-11 THEN BUTTON 11,0:WIN 
DOW 1:CLS:WINDOW 2:GOTO DfrF EL 
SE IF DIALOG(1)>6 THEN BUTTON F 
ig+6,1:BUTTON DIALOG(1),2:Fig=DI 
ALOG(1)-6 ELSE BUTTON Com+1l, l1:BU 
TTON DIALOG(1),2:Com=DIALOG(1)-1 
:GOTO DfrF 


Dfr2: 

IF Dia=3 THEN Dia=DIALOG(3):WINDOW Di 
a ELSE GOTO DfrF 

IF Dia=1l THEN A!-=VARPTR(Cur(0)):A! 2: 
GOTO DfrF ELSE INITCURSOR 

DÉrF': 

DIALOG ON:RETURN 


REM Traitement d'un événement de type 
"Dialog" pour l'option 
“"Hyperparallélépipède" 

DHy: 

DIALOG OFF:MENU 5,0,0:A!=VARPTR(Cur( 
0)):A! 4:BUTTON CLOSE 1:CLS:Ind= 
Ind+l1:FOR I=0 TO 2"Ind-1l:N=I:FOR 
J=Ind-1 TO 0 STEP -l:Nn(J)=INT(N/ 
2°J) :N=N-Nn (J) *2°"J:NEXT:Xn(I1)=Xorg 
:Yn(I)=Yorg:FOR J=0 TO Ind-l:IF N 
n(J)<>0 THEN Xn(I)=Xn(I) +VectX(J) : 
Yn(I)=Yn(I)+Vect}Y(J) 

NEXT:FOR J=0 TO Ind-l:IF Nn(J)=0 THEN 
Xvect (J)=Xn (I) +VectX(J) : Yvect (J)= 
Yn(I)+VectY(J) :LINE(Xn(I),Yn(I))-( 
Xvect (J), Yvect (J)) 

NEXT:NEXT:BUTTON 1,1, "Autre", (440,290 
)-(500,310):MENU 5,0,1:DIALOG ON 
:INITCURSOR:RETURN Att 


REM Tracé d'un fractal à l'intérieur 
d'un triangle 

DÉE: 

FOR J=-5 TO 3 STEP 4:X1(Com)=Cx+X*COS ( 
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J*PIdivé6#):Y1(Com)=Cy-Y*SIN(J*PIdi 
v6#) :X2 (Com) =Cx+X*COS ( (J+4) *PIdivé 
#) :Y2(Com)=Cy-Y*SIN((J+4) *PIdivé6#) 
:GOSUB SpR:Com=Com-1l:NEXT :RETURN 


REM Tracé d'un fractal à l'extérieur 
d'un triangle 

HEr: 

FOR J=11 TO 3 STEP -4:X1{(Com)=Cx+X*COS 
(J*PIdiv6#) : Y1(Com)=Cy-Y*SIN(J*PId 
iv6#) :X2 (Com)=Cx+X*COS ( (J-4) *PIdiv 
6#) :Y2(Com)=Cy-Y*SIN((J-4) *PIdiv6# 
) :GOSUB SpR:Com=Com-1:NEXT:RETUR 
N 


REM Tracé d'un fractal à l'intérieur 
d'un hexagone 

Dhe : 

FOR J=-1 TO 9 STEP 2:X1(Com)=Cx+X*COS( 
J*PIdivé6#) :Y1(Com)=Cy-Y*SIN(J*PIdi 
v6#) :X2 (Com) =Cx+X*COS ( (J+2) *PIdivé6 
#) : Y2 (Com) =Cy-Y*SIN((J+2) *PIdivé#) 
:GOSUB SpR:Com=Com-1:NEXT:RETURN 


REM Tracé d'un fractal à l'extérieur 
d'un hexagone 

Hhe : 

FOR J=11 TO 1 STEP -2:X1(Com)=Cx+X*COS 
(J*PIdiv6#) :Y1(Com)=Cy-Y*SIN(J*PId 
iv6#) :X2 (Com) =Cx+X*COS ((J-2) *PIdiv 
6#) :Y2 (Com) =Cy-Y*SIN((J-2) *PIdivé# 
) :GOSUB SpR:Com=Com-1l:NEXT:RETUR 
N 


REM Sous-programme d'affichage fractal 

SpR: 

IF Com=0 THEN LINE(X1(Com),Y1(Com))-(X 
2 (Com) , Y2 (Com) ) : Com=Com+l : RETURN 

DX (Com) =X2 (Com) -X1 (Com) :DY (Com) =Y2 (Com) - 
Y1 (Com) : X1 (Com-1) =X1 (Com) : Y1 (Com-1 
)=Y1 (Com) : X2 (Com-1) =X1 (Com) +Unitl# 
*DX (Com) : Y2 (Com-1)=Y1 (Com) +Unitl#* 
DY (Com) : Com=Com-1:GOSUB SpR 

X1 (Com-1)=X2 (Com-1) : Y1 (Com-1)=Y2 (Com-1) : 
X2 (Com-1)=X1 (Com) +Unit2#*DX (Com) +V 
ect2#*DY (Com) : Y2 (Com-1)=Y1 (Com) +Un 
it2#*DY (Com) -Vect2#*DX (Com) : Com=Co 
m-1l:GOSUB SpR 

X1 (Com-1)=X2 (Com-1) : Y1 (Com-1)=Y2 (Com-1) : 
X2 (Com-1)=X1 (Com) +Unit3#*DX (Com) :Y 
2 (Com-1)=Y1 (Com) +Unit3#*DY (Com) :Co 
m=Com-1:GOSUB SpR 
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X1 (Com-1)=X2 (Com-1) : Y1 (Com-1)=Y2 (Com-1) : 
X2 (Com-1)=X2 (Com) : Y2 (Com-1) =Y2 (Com 
) : Com=Com-1l:GOSUB SpR 
Com=Comt+l:RETURN 


REM Affichage des fenêtres et 
initialisations nécessaires pour 
l'option "Fractal" 

F£r': 

A!=VARPTR(Cur(0)):A! 4:SHOWCURSOR:Fig 
=l:Com=3:WINDOW 1,, (3,23)-(386, 33 
9),3:PENPAT VARPTR(Pat (0)) :PENM 
ODE 10 

WINDOW 2,, (398, 30)-(501,300),2:TEXTFO 
NT O:TEXTFACE 4:MOVETO 2,120:PR 
INT"Complexité :":FOR I=0 TO 5:BU 
TTON I+1,ABS(I=3)+1,STR$S(I), (2,1 
32+I*16)-(50,147+I*16),3:NEXT 

MOVETO 2,20:PRINT'"Figure :":BUTTION 7, 
2, "triangle <-",(2,32)-(100,47),3: 
BUTTON 8,1,"triangle ->",(2,48)-( 
100, 63),3:BUTTON 9,1, "hexagone <- 
", (2,64) -(100, 79) ,3:BUTTON 10,1," 
hexagone ->", (2,80)-(100,95),3:BUT 
TON 11,0,"Effacer", (5,245)-(98,265 
) 

MENU 5,0,1:INITCURSOR:RETURN 


REM Affichage de la fenêtre et 
initialisations nécessaires pour 
l'option “"Hyperparallélépipède" 

FHy: 

A!=VARPTR(Cur(0)):A! 4 : SHOWCURSOR : WI 
NDOW 1,,(3,23)-(509,339),3:BUTTON 
1,0,"Valider", (440,290)-(500,310) 

:MENU 5,0,1:A!=VARPTR(Cur(0)):A! 

3:Drch=0:PENPAT VARPTR (Pat (0)):P 

ENMODE 10:RETURN 
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Une rubrique ouverte aux lecteurs 


MacAstuces 


Avec ce numéro débute cette série 
régulière. Nous serons heureux de vous 
y faire partager non seulement nos 
découvertes, mais aussi celles qui nous 
auront été proposées par les lecteurs de 
Pom's. 


Réduire le système ? 


Le fichier System comporte un certain 
nombre d'éléments qui ne sont pas tous 
indispensables pour un bon 
fonctionnement du Macintosh. C'est 
dans ce dossier que se trouvent entre 
autres les polices de caractères et les 
accessoires de bureau. Avec le système 
correspondant à la version 4.1 du 
Finder, que nous modifions ici, le fichier 
System occupe en général environ 130 
K. Nous allons voir comment réduire ce 
système. 


Remarques : attention à ne pas 
modifier le fichier système d'un 
programme du commerce sans en avoir 
fait une copie de sécurité. En effet, 
certains auteurs de programmes ont 
modifié le système et les techniques de 
réduction présentées ci-dessous 
pourraient alors avoir des conséquences 
destructrices. Il est parfaitement possible 
que certaines des réductions indiquées 
ci-dessous empêchent tel ou tel logiciel 
de tourner. Faites donc des essais avant 
de détruire un système original. 

La première étape pour gagner de la 
place, avant de réduire un système, 
consiste à remplacer le Finder par un 
MiniFinder, ce qui et d'économiser 
d'un seul coup un cinquantaine de Ko. Il 
est même possible de fixer le démarrage 
sur un programme et d'éliminer Finder et 
MiniFinder : mais, dans ce cas, la sortie 
du programme entraîne une bombe 


Suppression des polices et 
accessoires 


A l'aide du Font/DA Mover, vous 
pouvez facilement éliminer toutes les 
polices non indispensables. Ensuite, 
éliminez tous les accessoires sauf un ; 
gardez par exemple l'Album. S'il ne 
reste pas au moins un accessoire, le 
Finder “perd les pédales”. 

Avec la suppression de toutes les polices 
non indispensables et de tous les 
accessoires sauf l'Album, nous passons 
de 130000 à 53825 octets. A partir de 
maintenant, nous allons utiliser des 
techniques plus dangereuses : faites donc 
une copie de la disquette avant de 
continuer. 


Remplacement de l'Album 
par un accessoire vide 


Si nous voulons un système minimum, 
par exemple sur une disquette ne 
comportant que des utilitaires, nous 
pouvons remplacer l'Album par un 
accessoire "vide", qui ne fait rien. Nous 
utiliserons pour cela le programme 
Resource Editor. 


Ouvrons le fichier System, ce qui nous 
fait voir l'ensemble des "ressources" 
consitutant le System, toutes identifiées 
par un nom de trois ou quatre caractères. 
Ouvrons le DRVR, qui contient 
l'ensemble des accessoires, puis 
ouvrons l'Album. Nous voyons 
apparaître le code objet de cet accessoire, 
que nous remplaçons par un simple RTS 
(code $4E75). 


Suppression de l'imprimante 
Si l'on n'a pas l'intention d'utiliser 
l'imprimante, on peut détruire le driver 
"Print" en le sélectionnant et en appuyant 
sur Effacer (Clear). Puis fermons DRVR 
et détruisons de la même façon PREC, le 
Printer RECord, et le fichier PAPA. 


Réduction à une seule police 


Ouvrons FONT et ne gardons plus que 
la police Chicago-12. Certes, cela rendra 
à l'écran les noms des disquettes et les 
listes sans icônes moins agréables à lire, 
mais cela gagnera encore de la place. 


CURS 

Nous pouvons éliminier les deux 
curseurs en forme de croix, ne gardant 
que la montre et le curseur d'insertion. 
Bien entendu, cela sera néfaste aux 
programmes qui, comme Multiplan, 
utilisent ces curseurs. 


FKEY 

Si nous n'avons pas besoin des clés de 
fonction permettant la sauvegarde ou la 
copie d'écran, avec la combinaison 
Commande, Majuscules et Blocage 
Majuscules, nous pouvons ouvrir 
FKEY. Comme nous pouvons le 
constater, seule les clés 3 et 4 sont 
programmées : fermons donc FKEY 
puis effaçons-le entièrement. 


INIT 
Si l'on n'a pas le clavier numérique, on 
ps éliminer le N°1, qui gère ce clavier. 
i l'utilisation de la disquette sur laquelle 
on installe le système réduit ne requiert 
pas de clavier, on peut aussi éliminer le 
N°0 (ne le faisons pas ici). Le N°13 peut 
aussi être détruit. 


PACK 

Si l'on ne se sert pas de la calculatrice, 
on peut éliminer les packs 4 et 5, le 
premier servant aux calculs en virgule 
flottante et le second aux fonctions 
transcendentales. Attention là aussi : de 
nombreux programmes utilisent ces deux 
TESSOUrCES. 


PAT# 

On peut éliminer les formes contenues 
dans PAT# si l'on n'a pas gardé le 
tableau de bord et si l'on ne compte pas 
utiliser MacPaint. 


STR et STR# 

Les fichier des "strings" peuvent être 
totalement éliminés; ils comportent entre 
autres les noms de fichiers des icônes de 
l'imprimante (8192) et du calepin (15871 
et 15872). 


WDEF 

Nous pouvons détruire le N°1, qui sert à 
définir des fenêtres à bord arrondi, telle 
que celle de la calculatrice. 


Avec toutes ces modifications, on aboutit 
à un système ne faisant plus que 32143 
octets, donc environ 40% plus petit. 


Plus dangereux encore ! 


Enfin, on peut détruire les ressources qui 
permettent de reconstituer le bureau avec 
commande et option. Cela permet 
d'éliminer BNDL, FREF et MACS. Si le 
bureau doit être reconstruit, le processus 
sera très long et les icônes système 
n'apparaîtront pas. 

Dans la foulée, nous pouvons aussi 
détruire dans DITL les messages 6047, 

qui interviennent lors de problèmes de 
lecture des disques. 


Nous sommes à présent descendus à 
29019 octets. Nous joignons sur la 
disquette d'accompagnement le fichier 
MiniSYS correpondant. Il suffit de le 
copier sur une disquette et de le 
rebaptiser "System" pour qu'il 
fonctionne de façon tout à fait (?) 
normale. 


En fait, on peut aller encore plus loin, et 
descendre aux environs de 20Ko! 
Mais, avec le MiniFinder à la place du 
Finder, on se trouve déjà à un total 
raisonnable (moins de 35Ko) par rapport 
aux quelques 175Ko habituels. 
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8 o ss e e 
Mini-Editeur Basic 


Guillaume Pot 


‘est en utilisant l'as- 

sembleur Big Mac que 

j'ai pensé à réaliser ce 

programme. Il existe, 
en effet, dans cet assembleur de 
nombreuses fonctions d'édition 
dont on ne dispose pas lorsqu'on 
programme en Basic ; en parti- 
culier, les fonctions FIND (trou- 
ver une chaîne) et CHANGE 
(changer une chaîne). Ce pro- 
gramme a pour but d'assurer ces 
deux fonctions par le biais de 
l'ampersand. 


Définition 
préliminaire 


Pour bien comprendre les possi- 
bilités, mais aussi les limites, de 
cet éditeur il est nécessaire de 
définir, de façon très précise, ce 
qu'on appelle ‘chaîne’. 
Désormais, une chaîne sera une 
séquence de caractères contenue 
dans une ligne de programme et 
ne comportant pas d'espace, de 
virgule, de guillemets. Une 
chaîne ne peut représenter une 
instruction, un numéro de ligne... 
En fait, une chaîne sera une suite 
de caractères non codée par 
l'interpréteur Basic (pas de 
token). On pourra donc chercher, 
trouver et remplacer un nom de 
variable, un mot de commentaire, 
mais aussi un nombre référençant 
un numéro de ligne (après 
THEN, GOTO ou GOSUB). 


Utilisation du 
mini-éditeur 


Le lancement du programme 
entraîne l'édition d'une page aide 
mémoire ; celle-ci contient tous 
les renseignements nécessaires. 
Cette page est accessible à tout 
moment par la commande & H 
(Help). Il suffit alors de charger 
le programme Basic sur lequel on 
effectuera des modifications. 
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Les deux fonctions de l'éditeur 
sont : 


+ l'édition de toutes les occu- 
rences d'une chaîne dans le 
programme ; 

* la substitution d'une chaîne à 
une autre. 


Comment trouver 
une chaîne ? 


La commande : & "chaîne assure 
l'édition de toutes les lignes du 
programme où la chaîne considé- 
rée apparaît ; si elle figure plu- 
sieurs fois dans une même ligne, 
la ligne sera éditée autant de fois 
(mais imprimée une seule fois). 
La barre d'espacement permet 
une édition pas à pas. Si la chaîne 
est une référence à une ligne, 
toutes les lignes contenant cette 
référence seront éditées, la ligne 
elle-même sera éditée si elle la 
contient. 


Comment changer 
une chaîne ? 


La commande & "chaînel"chaî- 
ne2 permet de remplacer, à 
volonté, la chaînel par la chaî- 
ne2. L'éditeur affiche la ligne du 
programme qui contient la pre- 
mière occurence, puis attend une 
touche. Plusieurs réponses sont 
possibles : 


+ O comme Oui change la chaî- 
ne, édite la nouvelle ligne, puis 
celle contenant l'occurence 
suivante ; 

+ RETURN entraîne le change- 
ment automatique de l'ancienne 
chaîne par la nouvelle dans tout 
le programme. L'édition des 
nouvelles lignes est instan- 
tanée ; 

+ toute autre touche, à l'excep- 
tion de CTRL-C (break), con- 
serve la chaîne et entraîne 
l'édition de la ligne contenant 
l'occurence suivante. 


Quelques conseils 


Comme avec tout autre éditeur, il 
faut faire preuve d'une grande 
prudence dans l'utilisation de la 
fonction & “chaînel"chaîne2. Il 
est indispensable de garder une 
copie du programme original 
avant de procéder à un change- 
ment généralisé. Ne vous hâtez 
pas de presser la touche RE- 
TURN lors d'une substitution de 
chaîne ; il pourrait arriver que la 
chaîne à remplacer soit une sous- 
chaîne d'une autre. Par exemple : 
xx dans xx% ou encore 110 dans 
1100. Pour changer le nom d'une 
variable (xx%, xx$, xx), il faut, 
bien sûr, inclure la spécificité 
dans les chaines 1 et 2. Par 
exemple, pour modifier le nom 
d'une variable dimensionnée, il 
est préférable de faire & 
"xx$('yy$( plutôt que & "xx"yy. 


Analyse 
du programme 


La seule difficulté technique du 
programme réside dans l'utilisa- 
tion d'une partie de la boucle 
principale utilisée par l'interpré- 
teur Basic (CMDLOOP). Cette 
partie ($D46C - $D52B) a été 
reprise pour éviter la sortie 
forcée, mais inopportune, dans 
l'interpréteur. Le programme 
procède de la facon suivante : 


1) il stocke la nouvelle ligne, 
déjà codée, dans le buffer 
d'entrée ($200) et sa longueur 
en $0F ; 

2) il a recours à la partie utilisée 
par l'interpréteur pour insérer 
la nouvelle ligne dans le 
programme Basic ; 

3) puis, retour au programme 
pour l'édition de la nouvelle 


ligne. 
CG 
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Source 


MINIEDIT.S 


Assembleur Big Mac 


© J OÙ En & GO NN hs 


RRRRRRRRRRRRRRRRÉRR RAR RH RÉ RÉ 


hé chercher/changer une = 
* chaine dans un programme * 


* Basic. guillaume pot * 
RRRRRRRRRRRRRRRRRRRRRRRRRRRR 
LENGPT = $0F 
WNDTOP = $22 
CH = $24 
CV = $25 
INVFLG = $32 
LINNUM = $50 
INDEX = $5E 
INDIX ” $60 
TXTTAB = $67 
LOMEM =” $69 
FREBEG = $6D 


FRETOP = $6F 
HIMEM = $73 


HIGHDS = $94 
HIGHTR = $96 
LOWTR - $9B 
PRGEND = $AF 
CHRGET = $B1 
CHRGOT = $B7 
TXTPTR = $B8 
LINPT = $F8 
ALLFLG = $F9 
LENG1 = $FA 
LENG2 = $FB 
STRBEG = $FC 
STREND = $FD 
LINE = $FE 
IN = $200 
WARMDOS = $3D0 
INTDOS = $3EA 
AMPERV = $3F6 
ORG $8E00 
LDA #<BEGIN 
STA AMPERV 
STA HIMEM 
LDA #>BEGIN 
STA AMPERV+1 
STA HIMEM+1 
BNE HELP 
** saisie commandes 4 


BEGIN LDA #0 
LDX #3 
INIPRM STA SLOT,X 
STA ALLFLG,X 


BPL INIPRM 
STX LAST 

STX LAST+1 
STX STRBEG 
JSR CHRGOT 


100 
101 

102 
103 
104 

105 
106 
107 
108 
109 
110 
111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 

122 
123 

124 
125 
126 
127 
128 
129 

130 

131 

132 
133 

134 

135 

136 
137 


BEGEND 
GETCMD 


FNDCMD 
FND1 


TESTH 


HELP 


NOTH 


GETSTR 
GETSTRI 


STR1END 


XSTREND 


GETSTR2 


STR2END 


TSTCHR 


FNDCMD 
EXEC 


CHRGET 
BEGEND 
#4 
CMDCHR, X 
TESTH 


FND1 
SYNTAX 


#4 ; 


NOTH 
HOME 
#0 
PRINT 
BASIC2 


53 ; 


GETSTR 


CHRGET 
FRMNUM 
GETADR 


LINNUM 
SLOT, X 
LINNUM+1 
SLOT+1,X 
CHRGOT 
EXEC 

# L = L 
GETCMD 
SYNTAX 


#0 
TSTCHR 
STRIEND 
STRNG1, X 


GETSTR1 


LENG1 
#0 
STRNG1,X 
#16 
STRERR 
CHRGOT 
EXEC 
LA 
GETCMD 
LENG2 
EXEC 


TSTCHR 
STR2END 
STRNG2, X 


GETSTR2 


LENG2 

#0 
STRNG2,X 
XSTREND 


CHRGET 
RETURN 
# L ; L 


138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
AT 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 

204 
205 
206 
207 
208 
209 





RETURN RTS 


STRERR JMP 


** execute 


EXEC LDA 


EXEC1 JSR 


NXTLIN LDY 


NXTADR STX 


EXEND LDA 


EXIT JSR 


XFIRST JSR 


XLAST CMP 


XLENG1 LDA 


LISTING JSR 


SRCH JSR 


*** chercher 


SEARCH  LDX 


NXTCHR LDA 


RETURN 
e A 44 


TOOLNG 


commandes ** 


LENG2 
EXEC1 

#0 

SLOT 
PRINTER 
TITLE 

#1 
TXTTAB 
TXTTAB+1 
NXTADR 


#0 
(LINE) ,Y 


(LINE) ,Y 
LINE 
LINE+1 
(LINE) ,Y 
XFIRST 


LENGI1 

EXIT 

MARGE 

#5 ;= END 
PRINT 

SETVID 

INIT 

UP 

WARMDOS 


GETNUM 
FIRST+1 
NXTLIN 
XLAST 
FIRST 
NXTLIN 
LAST+1 
XLENG1 
EXEND 
LAST 
LINNUM 
EXEND 
LENG1 
LISTING 
STRBEG 
SEARCH 


LIST 
KEYTST 
LENG1 
NXTLIN 
SLOT 
NXTLIN 
CROUT 


une chaine *** 


#0 
STRBEG 
STRBEG 
(LINE) ,Y 
SEARCH 
NXTLIN 
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210 CMP STRNGI1,X 266 STA LOMEM 322 LDA TXTTAB 


211 BNE SEARCH 267 STA INDIX 323 LDY TXTTAB+1 
LI2 INY 268 LDA LOMEM+1 324 STA INDEX 
213 INX 269 ADC #$FF 325 STY INDEX+1 
214 CPX LENGI1 270 STA  LOMEM+1 326 CLC 

215 BNE NXTCHR 271 SBC LOWTR+1 327 HD4FE LDY #$01 

216 STY STREND 272 TAX 328 LDA (INDEX),Y 
217 LDA LENG2 273 SEC 329 BNE HD50F 
218 BEQ LISTING 274 LDA LOWTR 330 LDA LOMEM 
219 275 SBC LOMEM 331 STA PRGEND 
220 *** changer une chaine *** 276 TAY 332 LDA  LOMEM+1 
221 277 BCS HD49F 333 STA PRGEND+] 
222 LDA ALLFLG 278 INX 334 JMP  DONE 

223 BNE CHANGE 279 DEC INDIX+1 335 

224 JSR LIST 280 HD49F CLC 336 HD50F LDY #$04 

225 JSR RDKEY 281 ADC INDEX 337 HD511 INY 

226 CMP #"0" 282 BCC HD4A7 338 LDA (INDEX),Y 
227 BEQ CHANGE 283 DEC INDEX+1 339 BNE HD511 

228 CMP #$83 s= °C 284 CLC 340 INY 

229 BEQ EXIT 285 HD4A7 LDA (INDEX),Y 341 TYA 

230 CMP #$8D 286 STA (INDIX),Y 342 ADC INDEX 
231 BNE SRCH 287 INY 343 TAX 

232 STA ALLFLG 288 BNE HD4A7 344 LDY #$00 

233 CHANGE JSR NENLIN 289 INC INDEX+1 345 STA (INDEX),Y 
234 BNE CMDLOOP 290 INC INDIX+1 346 LDA INDEX+1 
235 DONE LDA STRBEG 291 DEX 347 ADC #$00 

236 ADC LENG2 292 BNE HD4A7 348 INY 

237 STA STREND 293 349 STA (INDEX),Y 
238 JSR LIST 294 NOTFND LDA HIMEM ;= $D4B5 350 STX INDEX 
239 JSR KEYTST 295 LDY HIMEM+1 351 STA INDEX+1 
240 LDY STREND 296 STA FRETOP 352 BCC HD4FE 

241 DEY 297 STY FRETOP+1 353 

242 STY STRBEG 298 LDA LOMEM 354 ** routine new line ** 
243 BNE SRCH 299 STA HIGHTR 355 

244 300 ADC LENGPT 356 NEWLIN  LDA #0 

245 *insere une nouvelle ligne* 301 STA HIGHDS 357 STA LENGPT 
246 302 LDY  LOMEM+1 358 LDY #3 

247 CMDLOOP LDX PRGEND 303 STY HIGHTR+1 359 NXTCAR INY 

248 STX LOMEM 304 BCC HD4D1 360 CPY STRBEG 
249 LDX PRGEND+1 305 INY 361 BNE GETCAR 
250 STX  LOMEM+1 306 HD4D1 STY HIGHDS+1 362 LDY #0 

251 JSR  GETNUM 307 JSR BLTU 363 NEWSTR LDA STRNG2,Y 
252 USR FNDLI ;= $D46C 308 LDA LINNUM 364 JSR  INBUF 
253 BCC NOTFND 309 LDY LINNUM+1 365 INY 

254 LDY #$01 310 STA IN-2 366 CPY LENG2 
255 LDA (LOWTR), Y 311 STY  IN-1 367 BNE NEWSTR 
256 STA INDEX+1 312 LDA FREBEG 368 LDY STREND 
257 LDA LOMEM 313 LDY FREBEG+1 369 GETCAR LDA (LINE),Y 
258 STA INDEX 314 STA  LOMEM 370 JSR  INBUF 
259 LDA LOWTR+1 315 STY LOMEM+1 371 CMP #0 

260 STA INDIX+1 316 LDY LENGPT 372 BNE NXTCAR 
261 LDA LOWTR 317 MOVLIN LDA IN-5,Y ; $D4EA 973 CPX #SEF 

262 DEY 318 DEY 374 BCS LINERR 
263 SBC (LOWTR),Y 319 STA (LONWTR),Y 375 TXA 

264 CLC 320 BNE MOVLIN 376 ADC #5 

265 ADC LOMEM 321 JSR CLEAR 377 STA LENGPT 


Éditeur Plein Écran FPE 


Le Pacha 


Listez vos programmes Basic en avant et en arrière. | 
Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 


Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 
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378 RTS 450 BPL NXTCRC 522 LDA LENG1 


379 451 BMI NXTCMD 523 BEQ RETI1 

380 INBUF LDX LENGPT 452 524 JSR LIGNE 

381 STA IN,X 453 CMDOK LDY #0 525 JSR MARGE 

382 INC LENGPT 454 CMDLEN INY 526 LDA #1 ;:= FIND 

383 RTS 455 LDA (TXTPTR),Y 527 LDX LENG2 

384 456 BPL CMDLEN 528 BEQ TITLE1 

385 LINERR JMP  TOOLNG 457 INY 529 LDA #2 ;= OLD 

386 458 CLC 530 JSR PRINT 

387 *** routine list xx 459 TYA 531 JSR MARGE 

388 460 ADC CH 532 LDA #3 ;= NEW 

389 GETNUM LDY #2 461 CMP #$26 533 JSR PRINT 

390 LDA (LINE),Y 462 BCC CMDPRT 534 LDA #4 := STR2 

391 TAX 463 JSR MARGE 535 TITLE1 JSR PRINT 

392 STX LINNUM 464 536 JSR LIGNE 

393 INY 465 CMDPRT LDA #$A0 537 LDX CV 

394 STY LINPT 466 JSR COUT 538 INX 

395 LDA (LINE),Y 467 CMDPRTI JSR CHRGET 539 STX WNDTOP 

396 STA LINNUM+1 468 TAX 540 UMP  CROUT 

397 RTS 469 BMI CMDPRT2 541 

398 470 ORA #$80 542 LIGNE JSR CROUT 

399 LIST JSR GETNUM 471 JSR COUT 543 LDA SLOT 

400 INY 472 BNE CMDPRTI1 544 BNE RET2 

401 PHA 473 CMDPRT2 JSR COUT 545 LDX #$26 

402 POSIT CMP BASH, Y 474 LDA #$20 546 LDA #"-" 

403 BCC POSITI 475 BNE INSPRT 547 LIGNE1 JSR COUT 

404 BNE NUMPRT 476 548 DEX 

405 TXA 477 OUTCHR ORA #$80 549 BNE LIGNEI1 

406 CMP BASL, Y 478 JSR COUT 550 RET2 RTS 

407 BCS NUMPRT 479 LDA CH 551 

408 POSIT1 LDA #$A0 480 CMP #$26 552 SLTERR JMP  ILLEG 

409 JSR COUT 481 BCS MARGE 553 

410 LDA LINNUM+1 482 RTS 554 PRINTER LDA SLOT+1 

411 DEY 483 555 BNE SLTERR 

412 BPL POSIT 484 ** routines diverses ** 556 LDA SLOT 

413 485 557 BEQ RET2 

414 NUMPRT PLA 486 KEYTST LDA KEY 558 CMP #9 

415 JSR LINPRT 487 BPL CONT 559 BCS SLTERR 

416 LDA #$A0 488 CMP #$83 ;s= °C 560 JSR OUTPORT 

417 JSR COUT 489 BNE TSTSPC 561 JSR INTDOS 

418 490 BREAK BIT STROBE 562 LDA #6 ;= SETUP 

419 LDY #$04 491 JMP EXIT 563 PRINT ASL 

420 LDA (LINE),Y 492 564 TAY 

421 BMI DECODE 493 TSTSPC CMP #$A0 565 LDA STRAD, Y 

422 LDA #$A0 494 BNE NOTSPC 566 STA LINE 

423 INSPRT LDY LINPT 495 BIT STROBE 567 INY 

424 CHRPRT JSR .OUTCHR 496 PAUSE LDA KEY 568 LDA STRAD, Y 

425 INY 497 BPL PAUSE 569 STA LINE+1 

426 CPY STRBEG 498 CMP #$83 LL 570 LDY #0 

427 BCC GETCHR 499 BEQ BREAK 571 PRINTI LDA (LINE),Y 

428 BNE TSTEND 500 CMP #$A0 572 BEQ RET2 

429 JSR SETINV 501 BEQ CONT 573 ORA #$80 

430 TSTEND CPY STREND 502 NOTSPC BIT STROBE 574 JSR COUT 

431 BNE GETCHR 503 CONT CLC 575 INY 

432 JSR SETNRM 504 RTS 576 BNE PRINTI 

433 505 577 INC LINE+1 

434 GETCHR  LDA (LINE),Y 506 MARGE JSR CROUT 578 BNE PRINTI 

435 BNE DECODE 507 LDA INVFLG 579 

436 JMP CROUT 508 PHA 580 

437 509 BMI MARGE1 581 STRAD DA AIDE 

438 DECODE BPL CHRPRT 510 JSR  SETNRM 582 DA TITRE1 

439 STY LINPT 511 MARGE1 LDX #7 583 DA TITRE2 

440 AND #$7F 512 JSR PRBL2 584 DA TITRE3 

441 TAX 513 PLA 585 DA STRNG2 

442 LDA #>CMDLST 514 BMI RETI1 586 DA FIN 

443 STA TXTPTR+1 515 SETINV LDA #$3F 587 DA SETUP 

444 LDA #<CMDLST 516 BNE SETFLG 588 

445 STA TXTPTR 517 SETNRM LDA #$FF 589 AIDE HEX 8D 

446 NXTCMD  DEX SROESETENS STA. INVEEG Note : afin de faciliter la lecture des 

pr _— se a Len ir At "s instructions ASC, les espaces ont été 
4, 

449 TAY 521 TITLE  JSR HOME remplacés par des ‘puces (°). 
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590 ASC MARRRRRtRRRRR EX 610 ASC 
ÉPELLLII 11111 611 ASC 
LÉLELLLLEILILIR 
591 HEX 8D 612 HEX 
592 ASC "#**eeTROUVER°-0 613 ASC 
U+ CHANGER ° UNE + 
CHAINE-.….#+#" 
593 HEX 8D 614 HEX 
594 ASC "*#e 0 DANSeUN 615 ASC 
+ PROGRAMME ° BAS 
IC..." 
595 HEX 8D 616 HEX 
596 ASC "##--PAR-°GUIL 617 ASC 
LAUME + » °POTeee 
CEEPEEEETILLL 
597 HEX 8D 618 HEX 
598 ASC MAARRARAAXEE XX 619 ASC 
RÉRRRRRRRÉRRÉRRÉ 
RRRRRRRRRRRRN 
599 HEX 8D8D8D 620 HEX 
600 ASC M"<<<e+LES+CLES 621 
*DE + Le AMPERSAN 622 FIN ASC 
Dee>>>" 623 HEX 
601 HEX  8D8D 624 
602 ASC "Ffe=+PREMIERE 625 SETUP HEX 
°LIGNEsss....S 626 ASC 
#-=°SLOT" 627 HEX 
603 HEX 8D 628 
604 ASC "L#-=*DERNIERE 629 CMDCHR ASC 
°LIGNE-..00..H 630 
*e=.AIDE" 631 SLOT HEX 
605 HEX  8D8DA2 632 FIRST HEX 
606 633 LAST HEX 
607 ASC. Me 634 
608 ASC "eesee=eTROUVE 635 BASL DFB 
ReUNE°CHAINE" 
609 HEX  8DA2 636 BASH DFB 


saines >1000,>10000 
Te=e CHANGER °UN 637 TITRE3 ASC "NOUVELLE -CHA 
E*CHAINE" INE:°" 
8D8D 638 HEX 00 
"VALEURS + PAR °D 639 TITRE2 ASC "ANCIENNE*-" 
EFAUT°:°&°5S0,F 640 TITRE1 ASC "CHAINE:°" 
0,L65535" 641 STRNG1 HEX 00 
8D8D8D 642 
"<<< LES ° AUTR 643 STRNG2 = STRNG1+16 
ES°CLESeee.e>> 644 
ei 645 
8D8D 646 KEY = $C000 
"ONE °eee=eCHAN 647 STROBE = $co010 
GE°UNE°°°+ESPA 648 
CE®e=ePAUSE" 649 CMDLST = $DOCF 
8D 650 BLTU = $D393 
"RETURN * = + CHAN 651 FNDLIN = $D61A 
GE°TOUT°-°+°CTR 652 CLEAR = $D665 
LeCe=eSTOPe." 653 
00 654 FRMNUM = $DD67 

655 SYNTAX = $DEC9 
"END-OF-PASS" 656 BASIC2 = $E003 
8D00 657 ILLEG = $E199 

658 TOOLNG = $E5B2 
89 659 GETADR = $E752 
"80N" 660 LINPRT = $ED24 
00 661 

662 PRBL2 = $F94A 
°"SEL"H" 663 INIT = $FB2F 

664 UP = $SFCI1A 
0000 665 HOME = $SFC58 
0000 666 RDKEY = $FDOC 
FFFF 667 CROUT = $FD8E 

668 COUT = $FDED 
1,10,100,1000, 669 SETVID = $FE93 
10000 670 OUTPORT = $FE95 


>1,>10,>100, 


imite! 


Emulation 
Minitel sur 


Apple / 


Transformez votre 
Apple //c en Minitel 
graphique et couleur 
avec sauvegarde des 
informations sur im- 
primante ou sur dis- 
quettes. 


e Existe aussi en version texte (sans gra- 


phique) 


(nécessite un modem V23 ou un adaptateur LINK //c entre le Minitel et l'Apple //C. 


XL/Serve et Mac Serve 


Les premiers logiciels de réseaux pour 
Appletalk permettant le partage d’impri- 


COPY II MAC" 4.5 


DUPLIQUE LES LOGICIELS PROTÉGÉS * 

CONTIENT DES UTILITAIRES PUISSANTS 

- Formatage et vérification de disque 

- Editeur de secteurs et fichiers 

- Réparation de disques endommagés 

- Installation de programmes protégés sur disque 
dur 

Configuration : Macintosh 128 K ou 512K 


Versions aussi disponibles pour IBM, Apple // et 
Commodore 64 ! 


Ces produits vous sont vendus pour vous permettre de réaliser des copies de sauvegarde 
uniquement. 


143, Grande Rue 
59100 ROUBAIX 
Tél. 20.73.93.73 


CONTIQUIIC 





PRODUITS PRIX TTC 


IMITEL// - V 1.1 (version sans graphique) 
(Apple//c) 
IMITEL// - V 2.0 (version avec graphique) 


495,00 


mantes et de disques durs. 


(Apple//c) 


Copy II Mac V4.5 
Copy II Plus V 5.5 (Apple//) 

Logiciel de réseau : XL/SERVE 
Logiciel de réseau : MAC SERVE 
(disponible le 20/02/86) 


895,00 
595,00 
595,00 
2595,00 


3795,00 
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Link//c (interface minitel/Apple//c) 
prévu 02/86 


Ces logiciels sont aussi disponibles chez votre Concessionnaire Agréé Apple. 


495,00 
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Récapitulation 


Après la saisie de ce source sous moniteur, 
vous le sauvegarderez par : 


MINIEDIT 


BSAVE MINIEDIT, A$8E00, 


8E00- A9 
8E08- 8E 
8E10- A9 
8E18- F9 
8E20- 18 
8E28- 08 
8E30- F8 
8E38- CA 
8E40- DO 
8E48- C9 
8E50- 24 
8E58- DD 
8E60- 50 
8E68- 94 
8E70- FO 
8E78- AE 
8E80- DO 
8E88- 94 
8E90- FO 
8E98- DO 
8EA0- 56 
8EA8- 00 
8EBO- 00 
8EB8- 2F 
8ECO- 05 
8EC8- 91 
8EDO- A5 
8ED8- AA 
8EE0- B1 
8EE8- 20 
8EFO- 20 
8EF8- FC 
8F00- 16 
8F08- 94 
8F10- DO 
8F18- CB 
8F20- 12 
8F28- FA 
8F30- 20 
8F38- FC 
8F40- 46 
8F48- DO 
8F50- A5 
8F58- 0C 
8F60- FO 
8F68- 20 
8F70- FB 
8F78- 91 
8F80- A6 
8F88- 20 
8F90- A0 
8F98- 85 
8FAO- 88 
8FA8- 85 
8FBO- E5 
8FB8- A8 
8FCO- 5E 
8FC8- 91 
8FDO- 61 
8FD8- 85 
8FEO- 65 
8FE8- 90 


10 
8D 
00 
CA 
94 
4c 
A2 
10 
0B 
91 
8A 


8D 
F7 
A2 
10 
86 
BD 
04 
F8 
20 
4c 
48 
52 
13 
B7 
4c 
FO 
86 
10 
c9 
20 
E8 
56 
06 
4c 
00 
6D 
DO 
B1 
DO 
91 
FE 
DO 
90 
C9 
AD 
FA 
8D 
A9 
FD 
FE 
DO 
84 
DO 
c9 
C9 
90 
FD 
FD 
86 
90 
B1 


F6 
03 
03 
F8 
FC 
8E 
DD 
4C 
58 
03 
20 
E7 
94 
00 
c9 
06 


03 
85 
9D 
8E 
20 
20 
0E 
c9 
FC 
EO 
B1 
68 
A5 
FO 
DE 
9D 
A9 
2D 
FO 
8E 
F5 
FO 
2C 
ES 
13 
A0 
A0 
86 


AS- 


05 
2F 
20 
DO 
18 
94 
04 
20 
13 
00 
F6 
c8 
A5 
20 
FO 
DO 
73 
8D 
84 
A6 
1A 
85 
85 
65 


85 
74 
13 
17 
B7 
B1 
94 
DE 
A9 
EO 
00 
OA 
51 
4F 
A2 
46 
00 
20 
96 
FO 
86 
DB 
FO 
A5 
94 
01 
00 
FE 
FA 
20 
FB 
7E 
05 
94 
C5 
84 
29 
94 
E6 
FO 
E8 
FB 
8D 
0A 
CA 
AS 
90 
FC 
B0O 
D6 
5F 
61 
69 
FF 
9B 
61 
18 
E6 
73 
69 
6A 
20 


L$647 


73 
DO 
94 
94 
00 
00 
FO 
EO 
00 
03 
20 
AA 
9D 
ca 
00 
94 
9D 
B7 
A6 
06 
FB 
20 
02 
FB 
20 
A6 
B1 
85 
FO 
ca 
20 
90 
EC 
90 
50 
FC 
91 
DO 
FC 
95 
E4 


-FO 


90 
c9 
85 
FC 
20 
DO 
86 
90 
A5 
A5 
85 


A9 
92 
95 
8E 
DO 
FO 
06 
04 
20 
FO 
67 
A5 
14 
2C 
20 
E8 
46 
00 
FB 
9D 
A9 
B1 
c9 
FO 
B3 
67 
FE 
FF 
08 
91 
1A 
CD 
15 
09 
90 
DO 
A5 
A4 
A4 
DD 
FA 
D1 
20 
83 
F9 


8FFO0- 
8FF8- 
9000- 
9008- 
9010- 
9018- 
9020- 
9028- 
9030- 
9038- 
9040- 
9048- 
9050- 
9058- 
9060- 
9068- 
9070- 
9078- 
9080- 
9088- 
9090- 
9098- 
90A0- 
90A8- 
90B0- 
90B8- 
90C0- 
90C8- 
90D0- 
90D8- 
90E0- 
90E8- 
90FO0- 
90F8- 
9100- 
9108- 
9110- 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158- 
9160- 
9168- 
9170- 
9178- 
9180- 
9188- 
9190- 
9198- 
91A0- 
91A8- 
91B0- 
91B8- 
91C0- 
91C8- 
91D0- 
91D8- 
91E0- 
91E8- 
91F0- 
91F8- 
9200- 
9208- 
9210- 
9218- 


BRESELRLQ 


01 
85 
01 
D6 
5F 
A5 
4c 
DO 
00 
91 
A9 
FC 
20 
A4 
00 
69 
00 
AO 
84 
7E 
08 
OA 
88 
A0 
30 
91 
20 
68 
FD 
A9 
CA 
FA 
10 
26 
20 
07 
20 
80 
BO 
c9 
FO 
Co 
FO 
co 
48 
20 
DO 
58 
91 
FO 
51 
04 
25 
8E 
26 
FA 
DO 
09 
03 
85 
A0 
20 
DO 
23 
8D 


SÈSESE 


9220- 
9228- 
9230- 
9238- 
9240- 
9248- 
9250- 
9258- 
9260- 
9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92A0- 
92A8- 
92B0- 
92B8- 
92C0- 
92C8- 
92D0- 
92D8- 
92E0- 
92E8- 
92F0- 
92F8- 
9300- 
9308- 
9310- 
9318- 
9320- 
9328- 
9330- 
9338- 
9340- 
9348- 
9350- 
9358- 
9360- 
9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
93B0- 
93B8- 
93C0- 
93C8- 
93D0- 
93D8- 
93E0- 
93E8- 
93F0- 
93F8- 
9400- 
9408- 
9410- 
9418- 
9420- 
9428- 
9430- 
9438- 
9440- 


C3 A0 A0 


8D C6 A3 


D5 
C3 
D5 
CE 
8D 
C1 
D2 
A0 
A0 
8D 
A0 
D5 
D4 
A0 


BÈESES 
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Manÿred Brede 


s)1)x 
LETTRE) S 


ous connaissez tous le 

jeu du "Master Mind”, 

mais avez-vous déjà 

joué aux "Six lettres" ? 
Ce divertissement, connu depuis 
une bonne cinquantaine d'années, 
utilise des règles et une présen- 
tation fort semblables. 


e 

Le jeu 

I1 consiste à retrouver des mots 
de six lettres présents dans les 
dictionnaires courants (nous ne 
ferons pas de publicité). Le 
programme affiche, pour chaque 
proposition, le nombre de lettres 
correctement placées. 


Le détail des règles est affiché en 
début de programme. Il est éga- 
lement possible de modifier le 
fichier contenant le dictionnaire 
(un millier de mots). D'autre part, 
le programme gère un index afin 
que le joueur ait à trouver tous les 
mots du fichier avant de retomber 
sur un mot déjà tiré. 


Le programme 
Les fichiers utilisés sont : 


+ SIX LETTRES 
menu général, 

+ SIX LETTRES.TEXT 
fichier renfermant les mots 
à trouver; 

+ SIX LETTRES.JEU 
le jeu proprement dit; 

+ SIX LETTRES.REGLES 
affichage des règles; 

+ _SIX LETTRES.MODIFIER 
modification du fichier 
texte. 


On accède au programme par : 
RUN SIX LETTRES 


La configuration nécessaire com- 
prend un Apple II+, Ile ou Ilc 
sous DOS 3.3 ou ProDOS. 


Les lecteurs de Pom's qui ne 
disposent pas de la disquette 
d'accompagnement devront créer 
le fichier SIX LETTRES.TEXT, 
sous forme de fichier à accès 
direct de longueur 7, comportant 


en enregistrement 0 le nombre de 
mots (999), en enregistrement 1 
la position de l'index (norma- 
lement 999) suivi de 999 enre- 
gistrements de mots de six lettres 
suivis d'un retour-chariot. 


Sur un Apple II+ sans ROM 
LC 


Modification à apporter : 


1) SIX LETTRES : 
ajouter "100 CALL 768"; 

2) SIX LETTRES.JEU : 
ajouter "590 CALL 768"; 

3) SIX LETTRES.MODIFIER : 
enlever le RETURN de la 
ligne 590, et ajouter "5530 
CALL 768: RETURN"; 

4) pour commencer le jeu : 
BLOAD SHIFT (voir dans 
Pom's N° 14), puis RUN 
SIX LETTRES. 





Fichier 'SIX LETTRES.TEXT" 


Routine Shift 


Tu 


( voir texte) Cette routine, extraite du Pom's n'I4, 
permet aux lecteurs qui n'ont pas les 
: minuscules à l'écran d'utiliser ce 
programme sans problème. Après saisie 
0 999 13 SABBAT sous moniteur, vous la sauvegarderez 
1 664 14 CORAIL par : 
2 AMICAL 2 BSAVE SHIFT, A$300, L$4B 
3 PETIOT 992 ELIXIR 0300- A9 OF 85 36 A9 03 85 37 
4  BRAYER 993 DECLIC 0308- A9 00 85 48 4C EA 03 8D 
5 ABREGE 994 EXAMEN 0310- 4A 03 08 8A 48 AD 4A 03 
6 PROCES 995 PINSON 0318- A2 07 DD 3A 03 FO OC CA 
7  INFLUX 996 CUISSE 0320- 10 F8 C9 EO 90 08 38 E9 
8 MOITIE 997 ALIENE 0328- 20 DO 03 BD 42 03 8D 4A 
9 BEGAYE 998 SEIGLE 0330- 03 68 AA 28 AD 4A 03 4C 
10 THORAX 999 MANUEL 0338- FO FD CO DC EO FB FC FD 
11 SURVOL 1000 YOUYOU 0340- FE FF C1 C3 Al C5 DS C5 
12 ASSAUT 1001 RECOIN 0348- AD A1 00 
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58 


Programme SIX LETTRES 


10 REM le jeu desSIX LETTRES reali 
se par Manfred Brede 


20 REM six lettres menu 

version 1, 23.05.85 

110 E$ = CHRS (4) + "RUN SIX LETTRE 
"” 


principal 


120 AS = "----- NeAS = AS + AS:AS$S = À 
$ + AS:AS$ = AS$ + AS 

130 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME 

200 HTAB 9: INVERSE : PRINT " 

LETTRES ": NORMAL 

210 VTAB 4: HTAB 14: PRINT "menu pri 

ncipal": PRINT AS$ 


ST À 


220 VTAB 10: HTAB 8: PRINT "J joue 
r aux six lettres" 

230 VTAB 12: HTAB 8: PRINT "R regl 
es du jeu" 

240 VTAB 14: HTAB 8: PRINT "M modi 


fier le fichier" 

250 PRINT : PRINT : HTAB 7: PRINT "E 
sc fin" 

260 VTAB 23: PRINT AS$;: VTAB 24: HTA 
B 1: PRINT "appuyez sur la touch 


e J; R;:M Où ESC: "? 

300 GET AS: IF AS$ = CHRS$ (27) THEN 
HOME : END 

310 IF A$ = "J" OR A$ = "j" THEN ES$ 
= ES + "JEU": GOTO 350 

320 IF AS = "RN' OR AS = "r" THEN ES 
= E$ + "REGLES": GOTO 350 

330 IF AS = "M" OR AS = "m" THEN ES 
= ES + "MODIFIER": GOTO 350 


340 GOTO 300 
350 PRINT AS;: VTAB 1: HTAB 1: PRINT 
: PRINT ES 


Programme SIX LETTRES. 
REGLES 


100 REM regles du jeu des six lettre 
s version 1, 28.05.85 
110 A$ = "----- N:A$ = AS + AS:A$ = À 
$ + AS:A$ = A$ + AS 
120 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME 
130 HTAB 9: INVERSE : PRINT " S IX 
LETTRES ": NORMAL : VTA 
B 23: PRINT A$;: VTAB 24: HTAB 1 
0: PRINT "appuyez sur une touche 
LE 
140 POKE 34,2: POKE 35,21: HOME 
1000 REM page 1 
1010 T$ = "Regles du jeu des 
ttres'": GOSUB 7000 
1020 PRINT "Le but du jeu est de tro 
uver un mot de": PRINT 


"six le 





1030 PRINT "six lettres : verbe, nom 
commun, adjec-": PRINT 
1040 PRINT "tif, participe etc.": PR 
INT : PRINT 
1050 PRINT "Les noms propres, les no 
ms mis au femi-": PRINT 


1060 PRINT "nin ou au pluriel et les 
verbes conju-": PRINT 

1070 PRINT "ques ne figurent pas da 
ns les mots a": PRINT 

1080 PRINT "trouver." 

1090 GOSUB 8000 

1500 REM page 2 

1510 T$ = "Mecanisme": GOSUB 7000 

1520 PRINT "Au debut du jeu, le prog 
ramme choisit": PRINT 

1530 PRINT "un mot que le joueur doi 
t trouver. Ce": PRINT 

1540 PRINT "dernier ecrit un mot de 
six lettres au": PRINT 

1550 PRINT "hasard.": PRINT : PRINT 

1560 PRINT "Le programme affiche le 
nombre de let-": PRINT 

1570 PRINT "tres qui sont placees a 
la bonne place": PRINT 

1580 PRINT "dans le mot a trouver."; 

1590 GOSUB 8000 

2000 REM page 3 

2010 TS = "Exemple": GOSUB 7000: PRI 


NT 
2020 PRINT "mot a trouver : ";: INVE 
RSE : PRINT "CIGALE": NORMAL : P 


RINT : PRINT AS$ 

2030 PRINT "mot enonce » Morse TNVE 
RSE : PRINT "EGALES";: NORMAL : 
HTAB 30: PRINT "reponse : 0" 

2040 PRINT "Aucune lettre n'occupe 1 
a meme place.": PRINT 

2050 PRINT AS$ 

2060 PRINT "mot enonce Se TER LNVE 
RSE : PRINT "GITANE";: NORMAL : 
HTAB 30: PRINT "reponse : 3" 

2070 PRINT "Les lettres I, À et E oc 
cupent la meme place que dans 1 
e mot CIGALE."; 

2080 GOSUB 8000 

2500 REM page 4 

2510 T$ = "Nota": GOSUB 7000 

2520 PRINT "La citation de mots par 
le joueur admet": PRINT 

2530 PRINT "toutes les formes gramma 
ticales :": PRINT : PRINT 

2540 PRINT "pluriel, feminin, 
conjugue etc.": PRINT 

2550 GOSUB 8000 

3000 REM page 5 

3010 T$ = "Conduite du jeu": GOSUB 7 
000 

3020 PRINT "Ayant obtenu la reponse 
a un mot enonce," 

3030 PRINT "le joueur l'exploite en 
eliminant les": PRINT 

3040 PRINT "lettres rejetees.": PRIN 
T : PRINT 


verbe 
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3050 PRINT "Ainsi un zero permet d'e 
liminer defini-": PRINT 
3060 PRINT "tivement toutes les lett 


res du mot.": PRINT 

3070 GOSUB 8000 

3500 REM page 6 

3510 PRINT : PRINT "Une reponse posi 
tive guide le joueur": PRINT 

3520 PRINT "dans le choix des mots s 
uivants, selon": PRINT 

3530 PRINT "les lettres qu'il suppos 
e bonnes et que": PRINT 

3540 PRINT "d'autres mots lui permet 
tront de con-": PRINT 

3550 PRINT "firmer ou d'exclure.": P 
RINT : PRINT 

3560 PRINT "Conclusion:": PRINT 

3570 PRINT "La performance reside d 
ans l'enonce": PRINT 

3580 PRINT "d'un minimum de mots pou 
r decouvrir le": PRINT 

3590 PRINT "mot a trouver."; 

3600 GOSUB 8000 

4000 REM page 7 

4010 TS = "Bloc-notes": GOSUB 7000 

4020 PRINT "Pour se rappeler les let 
tres deja trou-": PRINT 

4030 PRINT "vees, le joueur a la pos 
sibilite de les": PRINT 

4040 PRINT "noter en bas de l'ecran 
a gauche.": PRINT : PRINT 

4050 PRINT "L'acces au bloc-notes et 
le retour au": PRINT 

4060 PRINT "jeu se font au moyen de 
la touche Esc." 

4070 GOSUB 8000 

4500 REM page 8 


4510 T$ = "Touches permises": GOSUB 
7000 
4520 PRINT "A ... Z : ecrire une le 


ttre": PRINT 

4530 PRINT "-> : positionner s 
ur la lettre": PRINT " 
suivante": PRINT 

4540 PRINT "<- : positionner $s 
ur la lettre": PRINT " 
precedante": PRINT 

4550 PRINT "->/ : positionner s 
ur la premiere": PRINT," 

lettre du mot": PRINT 4560 PR 

INT "Return : enoncer un mot": 
PRINT 

4570 GOSUB 8000 

5000 REM page 9 

5010 PRINT 

5020 PRINT "Ctrl-A : afficher un a 
nagramme du": PRINT " 
mot à trouver": PRINT 

5030 PRINT "Ctrl-L : afficher une 
lettre du": PRINT " mo 
t a trouver": PRINT 

5040 PRINT "Ctrl-T verification 


des lettres": PRINT " 
du bloc-notes": PRINT 
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5050 PRINT "Ctrl-F 
PRINT 
5060 PRINT "ESC : acces au bloc 
-notes;": PRINT " reto 
ur au jeu": PRINT 
5070 PRINT "Del ou effacer une 1 
ettre ‘du bloc-": PRINT " 
note"; 
5080 GOSUB 8000 
5500 REM page 10 
5510 T$ = "Remarques": GOSUB 7000 
5520 PRINT "Le nombre total des mots 
de six lettres": PRINT 
5530 PRINT "est affiche en haut a ga 
uche de l'ecran.": PRINT | 
5540 PRINT "Le nombre en bas a droi 
te de l'ecran": PRINT 
5550 PRINT "vous informe sur le nomb 
re des mots qui": PRINT 
5560 PRINT "restent a trouver." 
6000 REM fin 
6010 VTAB 21: HTAB l: PRINT "fin 
dés Tr ég Le S" 
6020 GOSUB 8000 
6030 POKE 34,0: POKE 35,24: HOME 
6040 PRINT CHRS (4);"RUN SIX LETTRE 
Sr" 
7000 REM afficher un titre 
7010 T1$ = LEN (T$):T28 = 1 + (40 - 
T1$) / 2: VTAB 3: HTAB T2%: PRI 
NT TS: HTAB T2%: PRINT LEFTS (A 
S$,T1$): PRINT : PRINT : RETURN 
8000 REM appuyer sur une touche 
8010 POKE 49168,0: VTAB 21: HTAB 40: 
GET B$: PRINT : HOME : RETURN 


fin du jeu": 


Programme 
SIX LETTRES.MODIFIER 


100 REM modifications au fichier des 
mots version 1, 23.5.85 

120 ES$ = VSIX LETTRES.TEXT"eDS = (CH 
R$ (4):KS$S =  CHRS (7) 

140 ERS$S = D$ + "READ" + ES$S.+ ",R":EN 
$ re DS + "WRITE" + ES + w,R" 

160 DIM BS(6),SS(6) 

180 AS = "----- ":A$ = AS + AS:A$ = À 
$ + AS$:A$ = AS + AS 

200 SS$S(0) = AS$:S$(1) = "1 ajouter 
un mot":SS$S(2) = "2 changer un 
mot":S$(3) = "3 eliminer un mot 
":S$S(4) = "4 verifier un mot'":S 
$(5) = "5 liste des mots":S$(6) 

= "6 modifier l'index" 

240 PRINT DS; "UNLOCK";ES: PRINT DS$S;" 
OPENM':ES:",L 7": PRINT ERS: "0": I 
NPUT MAX$: PRINT ERS;"l": INPUT 
NS 


60 





260 OUIS = K$ + "le mot existe deja 


dans le fichier. ":NO$ = K$ + "Il 
e mot n'existe pas dans le fichi 
ers 
300 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: GOSUB 5500: HOME 
320 HTAB 9: INVERSE : PRINT " S IX 
LETTRES ": NORMAL 
340 VTAB 4: PRINT "modifications"; S 
PC( 11);:"<Esc pour finir>": VTAB 
5: PRINT S$(0): GOSUB 8000 
VTAB 23: HTAB 1: PRINT SS(0);: P 
OKE 34,9: POKE 35,22 
500 REM menu 
520 S$ = 0: HOME : FOR I = 1 TO 6: H 
TAB 12: PRINT S$(I): PRINT : NEX 
À 4) 


360 


540 VTAB 24: PRINT "appuyez sur la t 
ouche 1 à 6 ou Esc ";: CALL - 9 
58 

560 GOSUB 5000: IF AS$ = CHRS (27) T 
HEN 800 

580 IF AS$ < "l" OR A$ > "6" THEN 560 

600 VTAB 24: HTAB 1: PRINT SS$( VAL ( 
A$));: CALL - 958: HOME 

620 ON VAL (AS$) GOSUB 1000,1500,200 
0, 2500, 3000,3500 


640 GOTO 500 
800 REM fin 
820 GOSUB 5600: PRINT DS$;"CLOSE";ES: 
PRINT D$;"LOCK";ES$ 
840 POKE 34,0: POKE 35,24: HOME 
900 PRINT D$;"RUN SIX LETTRES" 
910 END 
1000 REM ajouter 
1020 S8 = S& + 1 
1040 VTAB 12: HTAB l: PRINT 
le mot a ajouter :";: 
0 
1060 GOSUB 7000: REM chercher 
1080 IF E$ THEN GOSUB 5500: VTAB 15 
: HTAB l: PRINT OUIS$;: GOTO 1140 
1100 MAX$ = MAX$ + l: PRINT EWS;MAX®% 
+ 2: PRINT AS$: PRINT EWS;"0": P 
RINT MAX$ 
1120 GOSUB 5500: GOSUB 8000: VTAB 15 
: HTAB l: PRINT K$;"le mot a ete 
ajoute. "; 
1140 GOSUB 5000: GOTO 1040 
1500 REM changer 
1520 S$ = S$& + 1 
1540 VTAB 12: HTAB l: PRINT 
le mot a changer :";: 


"ecrivez 
GOSUB 600 


"ecrivez 
GOSUB 600 


(0) 

1560 GOSUB 7000: REM chercher 

1580 GOSUB 5500: IF E$ = 0 THEN VTA 
B 15: HTAB 1: PRINT NO$;: GOTO 1 
740 

1600 RC$ = R$:AC$S = AS 

1620 VTAB 14: HTAB l: PRINT KS$;"chan 
ger contre quel mot :";: GOSUB 
6000 

1640 IF AS$ = AC$ THEN 1720 

1660 GOSUB 7000: REM chercher 





1680 IF E$ THEN GOSUB 5500: VTAB 17 
: HTAB l: PRINT OUIS;: GOSUB 500 
O0: GOTO 1620 

1700 PRINT EWS;RC%: PRINT AS$: GOSUB 
5500 

1720 VTAB 17: HTAB 1: PRINT K$;'"le m 
ot a ete change. "; 

1740 GOSUB 5000: GOTO 1540 

2000 REM eliminer 

2020 S& = S$ + 1 

2040 VTAB 12: HTAB 1: IF MAX$S < 2 TH 
EN CALL - 958: PRINT "impossib 
le, il y a moins de 3 mots": PRI 
NT : PRINT "dans le fichier ";: 
GOTO 2160 

2060 PRINT "ecrivez le mot a elimine 
r :";: GOSUB 6000: GOSUB 7000: R 
EM chercher 

2080 GOSUB 5500: IF E$ = O0 THEN VTA 
B 15: HTAB l: PRINT NOS$;: GOSUB 
5000: GOTO 2040 

2100 M$ = MAX$ + 2: PRINT ERS;M$: IN 
PUT AIS: PRINT EWS;M$: PRINT AS: 
PRINT EWS;R$: PRINT AIS 

2120 MAX$ = MAX$ - l: PRINT EWS;"O": 
PRINT MAX$: IF N$ > MAX$ THEN N 
$& = MAX$: PRINT EWS;"l": PRINT N 


& 

2140 GOSUB 5500: GOSUB 8000: VTAB 15 
: HTAB l: PRINT K$;"le mot a ete 
elimine. "; 

2160 GOSUB 5000: GOTO 2040 

2500 REM verifier 

2520 S$& = S$ + 1 

2540 VTAB 12: HTAB 1: PRINT 
le mot a verifier :";: 
00 

2560 GOSUB 7000: REM chercher 

2580 GOSUB 5500: VTAB 15: HTAB 1l: IF 
E$ THEN PRINT OUIS;: GOTO 2620 
: REM trouve 

2600 PRINT NOS$;: REM pas trouve 

2620 GOSUB 5000: GOTO 2540 

3000 REM liste 

3020 S$ = S$ + 1 

3040 M$ = MAX$ + 2:C$ = 3:R$ = l1:P% 
= (MAX$ + 1) / 50:P% = (P$% + 9) 
/ 10:P#% = P$% * 50:PF$ = MAX$ / 5 
O:PF$& = PF$ * 50: PRINT 

3060 I$ = l1:I = 2 

3080 IF C% < 33 THEN 3120 

3100 C$ = 3:R$ = R$ + l: 
THEN GOSUB 3320 

3120 PRINT ERS;I: INPUT AIS: VTAB 9 
+ R$: HTAB C$: PRINT AIS:C8 = C# 


"ecrivez 
GOSUB 60 


IF R$ > 10 


F JE mo T € 19 IF TI < = M$ THE 

N 3080 

3140 C& = 3: GOSUB 3320: IF I < =1M 
$& THEN 3120 

3160 GOTO 3060 

3300 REM nouvelle page 

3320 S$ = S$ + 1 

3340 GOSUB 5600: VTAB 21: HTAB 3: PR 


INT "acces rapide par les touche 
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s 0 a 9";: VTAB 24: HTAB 20: PRI 
NT LAS SC WW T = 2; M NeKS::1$ = 
I - 1 
3360 VTAB 24: HTAB 36: GOSUB 5000: I 
F AS < "O0" OR ÀAS$ > "9" THEN 3420 
33600 TI = VAL. (AS) # (PES IP > PF% 
THEN I = PF% 


3400 I= I +2:I$ = I - 1 

3420 VTAB 24: HTAB 20: CALL - 958: 
HOME : PRINT :R& = 1 

3440 S& = S$% - l: RETURN 

3500 REM l'index 

3520 S$ = S$ + 1 

3540 VTAB 12: HTAB 1: PRINT "l'index 
actuel NeNS + l:: CALL - 958 

3560 VTAB 14: HTAB 1: PRINT "nouvel 
index Mie 

3580 N$ = "O":I$ = LEN ( STRS (MAX$ 
+ 1})25I = 1 

3600 GOSUB 5000: IF AS$ = CHRS (13) 


THEN 3900: REM Return 
IF AS < "ON:OR "9" < AS THEN 36 
00 


3620 


3640 PRINT AS$;:N$ = N$ + AS$:I = I + 
1: IF I < = I$ THEN 3600 
3900 I = VAL (N$): IF I < 2 OR MAX% 


+ 1 < I THEN VTAB 16: HTAB 1: 
PRINT K$;"l'index doit etre entr 


e 2 et ";MAX$ + l1;" ";: GOSUB 50 
00: GOTO 3540 

3920 N$ = I - 1: PRINT : PRINT EW$;" 
1": PRINT N%: GOSUB 5520: PRINT 


K$: GOTO 3540 

REM appuyer sur une touche 

S$ = S$ + l: POKE 49168,0: GET 
AS: IF AS < > CHRS$S (27) THEN 5 
060: REM ESC 

IF S$% > 1 THEN POP :S% = 
1: GOTO 5040 

S$ = S$ — l: RETURN 

REM clavier,ecran 


5000 
5020 


5040 S$ — 


5060 
5500 


5520 PRINT DS;"IN#0": PRINT D$;"PR#0 
": RETURN 

5600 VTAB 1: HTAB 1: PRINT : GOTO 55 
20 

6000 REM entrer un mot (sousprogramm 
e) 

6020 S% = S& + 1 

6040 CALL - 958:I18 = 1:C$ = 1 + PE 


EK (36): REM position horizontal 
e du curseur 

6060 I = 1 

6080 HTAB C$ + I: GOSUB 5000 

6100 IF I$% < 7 THEN 6180 


6120 IF A$ = CHRS (13) THEN 6500 

6140 IF I < 7 THEN 6180 

6160 GOTO 6280 

6180 IF A$ > "Z" THEN A$:= CHRS (A 
SC (AS) -— 32) 

6200 IF AS$ > "Z" THEN 6080 

6220 IF AS < "A" THEN 6280 

6240 BS(I) = AS$:I = I + l: IF TS I 


THEN I$ = I: REM lettre 
6260 GOTO 6440 


6280 IF ÀA$ < > 


CHR$ (8) THEN 6340: 


REM <- 

6300 TP-T > 1 THEN I = I = ls: GOTO 6 
440 

6320 GOTO 6080 

6340 IF AS < > CHRS$S (21) THEN 6400 


: REM —> 
IF I < I$ THEN I = I + 1: 


6360 GOTO 
6440 
6380 GOTO 6080 
6400 IF AS < > CHRS (9) THEN 6080: 
REM ->| 
6420 GOTO 6060 
6440 PRINT AS$;: GOTO 6080 
6500 AS = B$(1) + BS(2) + BS(3) + BS 
(4) + BS(5) + B$S(6): HTAB C$ + 7 
: PRINT :S% = S$% - 1l: RETURN 
7000 REM chercher un mot (sousprogra 
mme) 
7020 E$ = 0:M$ = MAX$ + 2:R$ = 2 
7040 PRINT ERS;R%: INPUT AIS: IF AS$ 
< > AIS THEN R$ = R$ + l: IF R$ 
< = M$ THEN 7040 
7060 IF R$ < = M$ THEN E$ = 1 
7080 GOSUB 5500: RETURN 
8000 REM nombre 
8020 VTAB 7: PRINT "nombre de mots : 
“MAXS + 1;:" ">: RETURN 
Programme 
SIX LETTRES.JEU 
100 REM six lettres versi 
0n:3,:26.05:85 
110 DIM AS(6),BS(6),TS$(6):I = 0:AS(0 
) = "":BS (0) = "ns: TS (0) =. On 
1209 CS =ub ia arCSs CS et M MH 
CSaCS = CS HN PCS 
130 ES$ = "SIX LETTRES.TEXT":D$ = CH 
R$ (4):ER$ = DS + "READ'" + E$ + 
",R":EWS$S = D$ + "WRITE" + ES + " 
R" 
Y à 
140 PRINT D$S;"UNLOCK'";ES$: PRINT DS;" 
OPEN";:E$;:",L7": PRINT ERS$S;"O": I 
NPUT MAX$: PRINT ERS;"l": INPUT 
N$ 
150 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME : PRINT MAX% 
+ l;: HTAB 8: INVERSE : PRINT " 
9 TX LETTRES ": NORMA 
L : POKE 34,2 
500 REM choisir un mot 
510 X$ = RND (1) * N% 
520 PRINT ERS;X% + 2: INPUT AS(0): P 
RINT ERS;N% + 2: INPUT AS(l): PR 
INT EWS;:N% + 2: PRINT AS(0): PRI 
NT EWS;X% + 2: PRINT AS$S{1) 
530 N& = NS - l: IF N$ < 1 THEN N$ = 
MAX$ 
540 PRINT EWS;"l": PRINT Né: PRINT D 


S;"IN#0": PRINT DS;"PR#0" 
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550 FOR I = 1 TO 6:AS(I) = MIDS (AS 
(O0) ST AD) :SXNEXT 
560 HOME : VTAB 3: FOR I = 1 TO 10: 


PRINT : PRINT C$: NEXT : VTAB 24 


INVERSE : PRINT LEFTS (C$,6); 
: NORMAL 
570 A$ = STR$S (N$ + 1): HTAB 39 - 


LEN (AS$): PRINT AS; 

580 FOR I = 1 TO 6:TS$S(I) = ".": NEXT 
: REM effacer le bloc-notes 
1000 REM ecriver un mot 
1010 H$ = 0 
1020 V3 = 
1030 FOR I = 1 TO 6:BS$S(I) = "": NEXT 
= & IL 


1040 I = 1 

1050 VTAB V$: HTAB H$ + I: POKE 4916 
8,0: GET AS 

1060 IF I$ < 7 THEN 1100 

1070 IF L$ = 1 AND AS = 
HEN 1500: REM Return 

TO0B0: IF T 7 iTHEN\ 1100 

1090 GOTO 1170 


CHRS$ (13) T 


1100 IF A$ > "Z" THEN A$ = CHR$ (A 
SC (A$) - 32) 

1110 IF A$ < "A" OR A$ > "Z" THEN 11 
70 


1120 ON L®% GOTO 1130,1140: REM lettr 


e 
1130 B$(I) A$: GOTO 1150 


1140 T$(I) = A$ 
1150 I = I + l: IF I$ < I THEN I$ = 
A 


1160 GOTO 1450 
1170: IF AS < > 
REM <- 
1180 IF I > 1 THEN I = I - 1: GOTO 1 
450 
1190 GOTO 1050 
1200 IF A$ < > CHRS (21) THEN 1230 
: REM > 
1210 IF' EF <.I$ THEN T = I + 1: 
1450 
1220 GOTO 1050 
1230 IF AS = 
M —->] 
1240 Te ASS ND 
: REM ESC 
1250 ON L$ GOTO 1260,1280 
1260 LVS = V$&:LH$S = H$:LI$ = I$:LI = 
I:L$ = 2: REM debut bloc-notes 
1270 VS = 24:H$% = 0:I$% = 7: INVERSE 


CHR$ (8) THEN 1200: 


GOTO 


CHR$ (9) THEN 1040: RE 


CHR$ (27) THEN 1290 


: GOTO 1040 
1280 VS = LV$S:H$ = LH$:I$ = LI$:I = 
LI:L$ = l: NORMAL : GOTO 1050: R 


EM fin de notes 

1290 ON L$& GOTO 1300,1410 

1300 IF A$ = CHRS$S (6) THEN 1550: RE 
M Ctrl-F fin 

1310 IF A$ < > CHR$ (1) THEN“1350: 
REM Ctrl-A anagramme 

1320 FOR I = 1 TO 6:B$(I) = A$(I): N 
EXT :LIS$ = 6 + 100 * RND (1) 

1330 FOR I = 1 TO LI$:X8 = 1 + 6 * 


RND (1):1$% = 1 + 6 * RND (1):A$ 
= BS(X$):BS$S(X$%) = B$(I$) :BS(I%) 
= A$: NEXT 

1340 HTAB H$ + l: INVERSE : FOR I = 

1 TO 6: PRINT B$(I);: NEXT : NOR 

MAL : GOTO 1530 

1350 IF A$ < > CHRS$ (12) THEN 1370 
: REM Ctrl-L donner une lettre 

1360 HTAB H$ + l: PRINT LEFTS (C$,6 
;:I1 = 1 + INT ( RND (1) * 6): 
HTAB H$ + I: PRINT A$(I);: GOTO 
1530 

1370 IF AS < > CHRS$S (20) THEN 1050 
s, REM Ctri-T test 


1380 FOR I = 1 TO 6: IF TS(I) < >" 
°" THEN IF T$(I) < > AS$(I) THE 
N ÀA$ = "FAUX": GOTO 1400 

1390 NEXT :A$ = "EXACT" 

1400 HTAB H% + l: PRINT LEFTS (CS$,6 
);:: HTAB H$ + l: INVERSE : PRINT 
A$;: NORMAL : GOTO 1530 

1410 IF I > 6 THEN 1430 

1420 IF AS'< ÿS ";:" AND AS < à CHR 
$ (95) THEN 1050: REM . ou Del-3 
2 

1430: IF IL) IS THEN AS = ""eTSÉT) = 

#.W2I-= I' + l: GOTO 1450 

1440 GOTO 1050 

1450 PRINT A$;: GOTO 1050 

1500 REM resultat 

1510%F8%=40% FORAIN= 1 TO 6: IF AS(I 
) = BS(I) THEN I$ = I$ + 1 

1520 NEXT : VTAB V$é: HTAB H$ + 8: PR 
INT I$: IF I$ = 6 THEN 1560 

1530 V$& = VS + 2: IF V$& < 23 THEN 10 


1540 H$% = H$ + 10: IF H$ < 32 THEN 1 


1550 VTAB 24: HTAB 1l: INVERSE : PRIN 
T “#f>e FOR I = 1 TO 6: PRINT AS$ 
(I); : NEXT : PRINT "*"};: NORMAL 
: GOTO 1600 

1560 VTAB 24: HTAB 1l: INVERSE : PRIN 
T "*GAGNE*";: NORMAL 

1600 PRINT " un autre mot ? 

1610 POKE 49168,0: GET AS 

1620 IF” (AS = "O") OR (AS: = "o") THE 
N PRINT AS$;: GOTO 510 

1630 IF (A$ = "N'") OR (A$ = “"n") THE 
N PRINT AS$;: GOTO 2000 

1640 GOTO 1610 

2000 REM fin du jeu 

2010 PRINT DS;"LOCK'";ES$: POKE 34,0: 


(O/N) 


HOME 
2020 PRINT D$;"RUN SIX LETTRES" 


_1STHME 


NONE-NOTI 
= cmnrr-OUINZE 


serre t 2T AITUE-B 
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roDOS est disponible 
depuis seulement deux 
ans, et pourtant, on ne 
dénombre pas moins 
d'une demi-douzaine de versions 
différentes. Cependant, la lecture 
des manuels fournis par Apple ne 
donne pas d'indications sur les 
différences entre ces diverses 
versions. Tout au plus peut-on 
supposer qu'il s'agit 
d'améliorations sur des points de 
détail, des mises à niveau de 
quelques fonctions annoncées 
dans la documentation, ou de 
corrections de quelques bugs. 


Apple assure (théoriquement) la 
compatibilité d'un programme 
tournant sous une version 
antérieure de ProDOS. 
Cependant, il n'est pas inutile de 
connaître exactement les caracté- 
ristiques de la version que l'on 
utilise, ne serait-ce que pour 
utiliser pleinement les perfor- 
mances du système. 


Il faut également distinguer entre 
les versions du noyau (kernel) de 
ProDOS (fichier ProDOS d'une 
disquette) et de l'interpréteur 
BASIC.SYSTEM. 


La version du ProDOS Kernel 
s'affiche en général pendant le 
boot du système. En revanche, 
celle du BASIC.SYSTEM est 
plus difficile à évaluer. Pour 
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l'obtenir il faut l'exécuter sans 
aucun fichier ‘STARTUP” sur la 
disquette. De plus, deux octets 
précisent ces numéros 
KVERSION en $BFFF pour le 
noyau, IVERSION en $BFFD 
pour l'interpréteur. 


Les versions que j'ai pu recenser 
sont : 


Date Octet identificateur 


B.4 04/02/83  Kversion= 0 


1.0 01/07/83 Kversion= 0 
1.0.1 01/01/84 Kversion= 0 
1.0.2 15/02/84 Kversion= 0 


11 17/08/84 

1.1.1 18/09/84 
Basic.System : 

1.0 15/11/83 

11 18/06/84 


Kversion= 1 
Kversion= 1 


Iversion= 0 
Iversion= 1 


qu'une version d'évaluation. 
D'autre part, nous ne nous 
occupons pas ici des autres 
interpréteurs système fournis par 
Apple, tels que FILER, 
CONVERT, EDASM, etc. 


Commandes sous 
Applesoft 


+ Les instructions MON et 
NOMON, issues du DOS 3.3, 
étaient autorisées (pour assurer la 
compatibilité DOS 3.3) mais 
néanmoins ignorées. Depuis la 
version 1.1.1, la commande 
MON engendre bizarrement un 
SYNTAX ERROR. 


+ La commande FRE est enfin 
apparue avec la 1.1.1 ; pour 
rappel, elle nettoie la mémoire 
vive beaucoup plus rapidement 
que son homologue de 
l'Applesoft. 


Alexandre Avrane 


+ Une nouvelle commande, 
BYE, déconnecte le 
BASIC.SYSTEM (version 1.1) et 
permet d'enchaîner vers un autre 
interpréteur (par exemple FILER 
ou CONVERT). 


+ Les commandes CAT et 
CATALOG ont été partiellement 
francisées (patch par Apple 
Seedrin ?) et fournissent la 
mention "SANS DATE" au lieu 
de "NO DATE" lors de l'affichage 
des catalogues. En revanche, les 
mentions "BLOCKS FREE" et 
"BLOCKS USED" sont toujours 
données en anglais... J'ai 
découvert également (ce n'était 
pas indiqué dans le manuel) que 
Ctri-C permet d'arrêter l'affichage 
d'un catalogue. 


+ La commande VERIFY qui, à 
la différence du DOS 3.3, se 
contente de vérifier l'existence 
d'un fichier, donne le copyright 
d'Apple lorsqu'elle est appelée 
sans paramètres. 


+ Les paramètres "@" (numéro 
de ligne Applesoft) et "V" 
(numéro de volume, ignorés mais 
néanmoins autorisés pour la 
compatibilité DOS 3.3) posent 
problème lorsqu'ils sont utilisés 
simultanément. Editez le 
programme suivant: 


10 PRINT "10" 

20, PRINT "20" 

SO: PRINT: "30" 
et sauvez-le sous le nom BUG1. 
Maintenant tapez la commande : 


RUN BUG1, @20, V30 


et l'exécution commence à la ligne 
30 au lieu de la ligne 20. Il 
faudrait taper : 


RUN BUG1, V30, @20 
Ce bug, heureusement sans grand 
danger, n'est toujours pas 
corrigé. 





+ Un bug éphémère est apparu 
avec la version 1.0.2 de ProDOS 
lors de l'utilisation de la 
commande CHAIN. Dans un cas 
très particulier (une fois sur 256 
en moyenne), les variables étaient 
mal transmises entre deux 
programmes Applesoft. Evitez 
donc d'utiliser la version 1.0.2. si 
vous appelez CHAIN. 


Gestion de la 
mémoire vive 


Hormis la commande FRE vue 
précédemment, les instructions 
HGR et HGR2 de l'Applesoft 
doivent entraîner, lors de leur 
exécution sous Basic.System, le 
transfert en mémoire haute de la 
partie du programme Applesoft 
qui serait écrasée par l'utilisation 
de la page graphique 
haute-résolution. L'instruction 
TEXT doit transférer le 
programme à son adresse initiale. 
Ceci n'est encore que théorique 
dans le manuel Apple, car aucune 
des versions de Basic.System ne 
supporte cette possibilité. 


+ Les vecteurs de la page 3 
($3D0-$3FF) sont différemment 
initialisés selon les versions de 
ProDOS : 


$3D0-JMP SBEO0 démarrage à chaud de 
BASIC.SYSTEM 
$3D3-JMP $SBEO0 idem pour compati- 
bilité avec DOS 3.3 
octets réservés pour 
les interpréteurs 
tournant s/s ProDOS 
adresse de transfert 
avec $C314 (Apple 
Ile et IIc seulement) 
$3EF- JMP $FAS9 gestion du BRK du 
6502/65C02 
ProDOS 1.0 ne gère 
pas le RESET et 
renvoie au moniteur 
ou DA SBE00 ProDOS 1.I récupère 
le RESET et fait un 
démarrage à chaud 
octet de contrôle du 
RESET (ProDOS1.0) 
ou DFBS$IB idem (ProDOS 1.1) 
$3F5- JMP $SFF59 ProDOS 1.0 ne gère 
pas l'instruction & 
ou JMP $BE03 ProDOS 1.1 envoie 
& vers le point 
d'entrée externe 
$3F8- JMP SBEO0 vers ProDOS 


$3D6 à $3EC 


$3ED-DA Sxxxx 


$3F2- DA S$FF59 


$3F4- DFB $5A 


$3FB-JMP SFF59 vers le démarrage à 
froid du moniteur si 
interruption NMI 

$3FE- DA SBFED gestion des inter- 
ruptions IRQ par 
ProDOS 


Pages globales de 
ProDOS 


Les routines GETBUFR et 
FREEBUFR, dont les points 
d'entrée respectifs sont $BEFS et 
$BEF8 et qui permettent d'allouer 
et libérer de l'espace mémoire 
entre ProDOS et ses buffers (par 
exemple pour un programme en 
assembleur), sont implémentées 
depuis ProDOS 1.1.1 ; il n'est 
donc plus nécessaire de les 
simuler (comme dans la routine 
CMDLOAD de Pom's 20). 


Pour vérifier leur existence, 
passez sous le moniteur et tapez 
BEFSL. Si vous obtenez : 


SBEF5- SEC 
RTS 
NOP 
SBEF8- SEC 
RTS 
NOP 
alors ces deux routines ne sont 
pas implantées. 


Gestion des 
interruptions 


Les interruptions masquables 
(IRQ) étaient mal gérées avant 
ProDOS 1.1.1 ; il reste néan- 
moins un bug avec cette nou- 
velle version, car le MLI de 
ProDOS n'est pas réentrant : si 
une interruption intervient alors 
qu'un programme principal a 
appelé le MLI pour exécuter une 
commande, et que la routine qui 





gère cette interruption appelle 
également le MLI, alors certains 
octets de données gérés par le 
MLI auront pu être écrasés 
lorsque le programme principal 
reprendra le contrôle. Il est 
possible de régler cette situation 
conflictuelle, espérons néanmoins 
qu'une version future de ProDOS 
éliminera ce bug. 


En aparté, il faut signaler que les 
interruptions (causées par 
exemple par une souris) sont très 
mal gérées sur un //e lorsque la 
carte 80 colonnes est active. 

Le kit de mise à niveau remédie à 
ce problème (techniquement la 
valeur de l'accumulateur est 
désormais stockée sur la pile au 
lieu d'être placée à l'adresse $45). 


Lecture du 
catalogue 


Une des contraintes que nous 
infligaient le DOS 3.3 était la 
difficulté à accéder au catalogue 
d'une disquette. Le Basic.- 
-System, pour sa part, permet de 
lire un catalogue sans avoir à 
manier les PEEK,, POKE et autres 
CALL. Le petit programme 
ci-dessous permet d'obtenir un 
tableau A$ où chaque variable est 
formatée comme une ligne 
affichée par la commande 
CATALOG sur le préfixe 
courant : 


100 REM Lecturel 

110 D$ = CHRS$(4) 

120 PRINT D$S"PREFIX" : INP 
UT P$ : REM obtient le 
préfixe 

130 DIM A$(200) : REM prév 
oyons 200 fichiers 

140 PRINT D$"OPEN"P$",TDIR 
" : REM on ouvre le di 
rectory 

150 PRINT D$"READ"PS 

160 ONERR GOTO 200 : REM o 
n s'arrêtera en END OF 
DATA 

170 FOR I = 0 TO 200 

180 INPUT A$ (I) : REM lit 
une ligne 

190 NEXT 

200 PRINT D$"CLOSE"PS 
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Conséquence logique, on peut 
obtenir dans les variables N1 et 
N2 le nombre de blocs 
disponibles et occupés sur un 
volume par le programme 
suivant : 


100 REM Lecture2 

110 D$ = CHR$S(4) 

120 PRINT D$S"PREFIX" : 
UT P$ 

130 PRINT D$"OPEN"P$",TDIR 

140 PRINT D$"READ"PS$ 

150 FOR I = 0 TO 2 STEP 0 
: REM boucle à vide 

160 INPUT A$ : REM lit une 

ligne 

I = I + (NOT LEN (A$)) 

: REM on attend la 2e 

ligne vide 

180 NEXT 

190 INPUT A$ : REM cette 1 

igne contient les vale 

urs recherchées 

PRINT D$"CLOSE"PS$ 

DEF FN N (X) = VAL (MI 

D$ (A$, X, 5)) 

N1 = FN N (16) : REMe 

xtrait le nombre de b1 

ocs libres 

N2 = FN N (37) : REMe 

xtrait le nombre de b1 

oCcs occupés 


INP 


170 


200 
210 


220 


230 


Hélas, tout marche correctement 
tant que l'on accède à un disque 
physique. Mais si on veut 
observer le disque virtuel installé 
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- 
Max : le 
| Jacques Supernant | 
Ce moniteur autorise ontrôle 
_routines en langage machine 


monte 


La gestion des fenêtres d'écran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 


Un mini-assembleur très souple fait partie de Max. 
Une ligne de commande peut devenir une boucle avec l'ordre JUMP 





par ProDOS sur les Apple de 
128K (préfixe /RAM), le 
Basic.System arrête alors la 
lecture sur le dernier fichier : la 
dernière ligne du catalogue n'est 
donc plus accessible et il est 
nécessaire de lire directement la 
VTOC du disque virtuel pour en 
extraire les valeurs d'occupation. 


Compilation des 
programmes 
Applesoft 


I1 s'agit d'une petite digression 
puisqu'aucun compilateur de 
programmes Applesoft n'est 
officiellement supporté par Apple. 
En effet, leur utilisation pose 
quelques problèmes sous 
ProDOS : 


+ Celui-ci ignore les commandes 
ProDOS qui ont pû être 


compilées (un PRINT 
CHR$(4); "CATALOG" 
affiche le mot "CATALOG" à 
l'écran). 


+ Par ailleurs, si on lance 
l'exécution par un BRUN du 
module objet, ProDOS est 
déconnecté après l'appel ; il est 
donc préférable de faire un 
BLOAD suivi d'un CALL. 


+ Enfin, les mêmes problèmes 
existent indifféremment avec 









Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 
par un accès direct aux registres du 6502 (ou 65C02). 


Ur étenolu 
| Apple ][+, //e, lc 
un contrôle de l'exécution des 


les compilateurs ‘Tasc’ ou 
‘Expediter’. Un lecteur 
connaît-il les solutions ? 


Trois remarques en guise de 
conclusion : 


+ La liste des bugs relevés 
ci-dessus ne se prétend pas 
exhaustive. Ils ne sont, de 
plus, guère dangereux (pas de 
comparaison avec le célèbre 
bug de l'APPEND du DOS 3.3 
qui vous détruisait un fichier 
sans même vous en avertir !). 


+ ProDOS est un excellent 
système d'exploitation, compte 
tenu des contraintes techniques 
qui ont présidé à sa con- 
ception ; il est désormais le 
système officiel de l'Apple II : 
ProFile ou le nouvel UnoDisk, 
par exemple, ne peuvent être 
utilisés sous DOS 3.3. 


à 


+ Il est préférable de toujours 
utiliser la dernière version 
disponible de ProDOS car, 
d'une part les bugs s'y font 
plus rares et, d'autre part des 
commandes nouvelles ou 
améliorées peuvent y être 


implantées. 
G 








Les fichiers 
source sont sur 
la disquette. 







Disquette et 
documentation : 
150,00 F TTC 
franco . Bon de 
commande 
page74. 
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Un ‘Print Using’ en 
assembleur 


a tâche de ce programme 

est de combler une 

lacune de l'Applesoft, à 

savoir l'absence de Print 
Using. Il peut être en effet 
nécessaire voire indispensable 
d'aligner des nombres de sorte 
que les chiffres des unités, 
dizaines etc., soient les uns 
au-dessous des autres. Un article 
de Pom's écrit par Jean-Francois 
Duvivier nous avait déjà donné 
une solution grâce a une routine 
BASIC ; je vous propose 
aujourd'hui une routine similaire 
en langage machine. Celle-ci est 
plus rapide, moins encombrante, 
et relogeable dans n'importe 
quelle zone de mémoire utilisable. 


Utilisation du 
programme 


Son utilisation est simple. Il suffit 
de mettre le masque voulu dans la 
variable M$, de ranger le réèl à 
afficher dans la variable X, puis 
enfin de faire Y = USR(X). Cette 
derniere instruction a pour effet de 
passer X du format compacté en 
format ‘FAC? (voir pour cela le 
Pom's numéro 12). 


Le masque suit les mêmes règles 
que dans l'article du Pom's 4 à 
quelques différences près: Il peut 


6 


être composé de ‘#’, de ‘.”, et 
d'espaces (au debut du masque 
seulement), mais pas de “” car la 
notation scientifique n'est plus 
disponible. 


+ # définit un chiffre, et donne 
l'emplacement de la virgule. 

+ Aucun retour à la ligne ne se 
produit après un affichage. 

+ Les zéros en tête sont 
remplacés par des espaces. 

+ _ Des zéros sont ajoutés à la fin 
pour compléter le masque si 
besoin est. 

+ Si le nombre de décimales du 
réèl dépasse celui du masque, 
le nombre est arrondi par 
défaut. 

+ Lorsqu'un signe négatif est 
utilisé, il prend une position #. 

+ Sile masque ne répond pas à la 
syntaxe précédement définie ou 
si le nombre ne peut rentrer 
dedans, le message ‘MASK 
ERROR' suivi du bip habituel, 
est généré. La main est alors 
rendue au niveau de 
l'Applesoft. 


Le programme PRINT-USING 
DEMO illustre tout ceci. 


Remarques 


Dans sa version d'origine, le 
programme renvoie dans la 


Patrice Neveu 


variable Y le nombre affiché. 
Pour supprimer cela et donc 
gagner quelques fractions de 
secondes, mettre un RTS 
($60=96) en $8126 (33064). 

Une autre petite modification peut 
être opérée : si on ne désire pas 
que le message d'erreur propre au 
programme s'affiche, il faut 
modifier les lignes 121,122,123 
de cette facon : 


121 ERR LDX MSKLEN Remplir le 


masque d'espaces 
122 JSR $F94A PRNBL?2affiche 


X espaces 
123 RTS 
Ce qui se traduit depuis le 
moniteur par : 


806E : A6 D7 20 4A F9 60 
Et en basic, il faudra insérer la 
ligne : 

175 POKE 32878,166 : POKE 32879, 
215 : POKE 32880,32 : POKE 3 
2881,74 : POKE 32882,249 : P 
OKE 32883,96 

D'autre part, si l'on frappe 

A=USR(X), le résultat sera dans 

A, mais aussi dans Ÿ. La variable 

X reste inchangée. 


Le déroulement du programme est 
expliqué plus en détail sur le 


listing. 
G 





Récapitulation 
PRINTUSING 


8000- A9 00 85 CF 85 CE 85 1D 
8008- 20 34 ED 84 07 85 06 A0 
8010- 00 B1 06 FO 10 C9 2E DO 
8018- 02 84 CF 99 00 03 C8 CO 
8020- 10 DO EE A9 00 99 00 03 
8028- 84 EB A5 69 85 08 A5 6A 
8030- 85 09 A0 00 B1 08 C9 4D 
8038- DO 18 C8 B1 08 C9 80 DO 
8040- 11 C8 B1 08 85 D7 C8 B1 
8048- 08 85 18 C8 B1 08 85 19 
8050- DO 35 AS 08 18 69 07 85 
8058- 08 90 D7 E6 09 A5 6C C5 
8060- 09 BO OB DO 06 A5 6B CS 
8068- 08 BO 03 18 90 C4 A0 80 


8070- A9 7B 20 3A DB 20 3A FF 
8078- 4C DO 03 8D CD C1 D3 CB 
8680- AO C5 D2 D2 CF D2 00 A4 
8088- D7 88 Bl 18 C9 20 DO 04 
8090- E6 1D DO OA C9 23 F0 06 
8098- C9 2E DO D2 84 CE 88 10 
80A0- E9 AD 00 03 C9 2E F0 08 
80A8- AS CF DO 04 AS EB 85 CF 
80B0- AS CE DO 04 A5 D7 85 CE 
80B8- AS CE 38 ES 1D C5 CF 90 
80C0- AD A4 CE A9 20 99 31 03 
80C8- 88 10 FA AS CF DO 08 A4 
80D0- CE 88 A9 30 99 31 03 A0 
80D8- 1F A9 30 99 31 03 88 C4 
80E0- CE DO F8 A4 D? A9 00 99 
80E8- 31 03 AS CF F0 10 A6 CE 
80F0- A4 CF 88 CA B9 00 03 9D 


80F8- 31 03 CA 88 10 F6 A6 CE 
8100- A4 CF A9 2E 9D 31 03 B9 
8108- 00 03 FO OD 9D 31 03 E8 
8110- C8 C4 EB BO 04 E4 D7 90 
8118- EE A0 00 B9 31 03 09 80 
8120- 20 ED FD C8 C4 D7 90 F3 
8128- A5 69 85 08 A5 6A 85 09 
8130- A0 00 B1 08 C9 59 DO 05 
8138- C8 B1 08 FO 1B A5 08 18 
8140- 69 07 85 08 90 EA E6 09 
8148- AS 6C C5 09 B0 37 DO EO 
8150- AS 6B C5 08 BO 2F 90 D8 
8158- C8 98 18 65 08 85 08 90 
8160- 02 E6 09 AS B8 85 FE AS 
8168- B9 85 FF A9 03 85 B9 A9 
8170- 30 85 B8 20 4A EC A4 09 
8178- A6 08 20 2B EB A5 FE 85 
8180- B8 AS FF 85 B9 60 
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Programme PRINTUSING.S 
(Assembleur BigMac) 


1 

2 
ZORRRRRARRRÉR ARR ARR ÉRARARARARARER ER 
4 + PRINTUSING 1.1 * 
5 * * 
6 **(C)*06/06/85***PATRICE*NEVEU* ** 
7 

8 

9 STROUT = $DB3A 

10 MOVMF - $EB2B 

11 FIN = $EC4A 

12 FOUT =  $ED34 

13 COUT - $FDED 

14 BELL = $FF3A 

15 

16 CHAINE =  $0300 

17 RESULT = $0331 

18 BASIC = $03D0 

19 
20 ADR =  $06 


21 VARTAB =  $08 
22 MASKADR =  $18 
23 SPACES $1D 
24 LOMEM =  $69 
25 ARYTAB =  $6B 


26 TXTPTR 


$B8 


27 MSKPOINT = $CE 
28 CHNPOINT = $cF 
29 MASKLEN = $D7 
30 CHAINLEN = $EB 
31 TXTPTR2 - $FE 


44 * CONVERTIR FAC EN CHAINE DE 
45 * CARACTERE EN $300 


PQ RE 
47 

48 JSR FOUT 

49 STY ADR+1 

50 STA ADR 

51 

52 LDY #0 

53 MANT LDA (ADR),Y 
54 BEQ MANTIS 
55 CMP #'. 

56 BNE MANTI 

57 STY CHNPOINT 
58 MANTI STA CHAINE, Y 
59 INY 

60 CPY #$10 

61 BNE MANT 

62 LDA #00 

63 MANTIS STA CHAINE, Y 
64 STY CHAINLEN 
65 
En 


67 * VA CHERCHER LE MASQUE STOCKE 
68 * DANS LA VARIABLE M$. 





69 2——mmmmmmmmmmmmmmmmmasmmemmm— 
70 

71 LDA LOMEM 

72 STA VARTAB 

73 LDA LOMEM+1 

74 STA VARTAB+1 
75 

76 CHRCH LDY #0 

77 LDA (VARTAB),Y 
78 CMP 4'M 

79 BNE NXTVAR 

80 INY 

81 LDA (VARTAB),Y 
82 CMP #$80 

83 BNE NXTVAR 

84 

85 * M$ TROUVE. 

86 

87 INY 


88 LDA (VARTAB),Y 


SORTIE DE CHAINE DE CARACTERES 
COMPACTE FAC ET LE MET EN (Y,X) 
SAISI UN NOMBRE PAR CHRGET > FAC 
FAC -> CHAINE DE CARACTERES 
SORTIE DE CARACTERE 

BIP SONORE 


RESULTAT DE FOUT 

NOMBRE PASSE PAR LE MASQUE. À AF 
FICHER 

RETOUR À L'APPLESOFT 


ADRESSE DE M$ 

NOMBRE D'ESPACES AVANT LE MASQUE 
DEBUT DES VARIABLES SIMPLES 
DEBUT TABLEAUX VARIABLES, FIN VAR 
- SIMP. 

ADRESSE CARACTERE OBTENU PAR CHR 
GET 

POSITION DU POINT DANS LE MASQUE 
POSITION DU POINT DANS LA CHAINE 
LONGUEUR DU MASQUE 

LONGUEUR DE LA CHAINE 
SAUVEGARDE DE TXTPTR 


FAIT LA CONVERSION 
SAUVE L'ADRES DU RESULTAT OBTENU 


ET TRANSFERE LE RESULTAT EN $300 
POUR UTILISATION ULTERIEURE 
C'EST FINI ? 

SI C'EST UN POINT, ALORS IL FAUT 
EN SAUVER LA POSITION... 

VOILA QUI EST FAIT. 


PASSE AU PROCHAIN CARACTERE 
ON EN TRANSFERE 16 MAXIMUM 


MARQUE FIN DE CHAINE PAR UN $00 
CONSERVE LONGUEUR DE LA CHAINE. 


PARTIR DU DEBUT DES VARIABLES 


C'EST M$ ? 


NON ALORS ON PASSE À PROCHAINE 


STA MASKLEN 
INY 
LDA (VARTAB),Y 
STA MASKADR 
INY 
LDA (VARTAB),Y 
STA MASKADR+1 
BNE VRFYMSK 

* 


* M$ PAS TROUVE, SUIVANT... 


NXTVAR LDA VARTAB 
CLC 

ADC #7 

STA VARTAB 

BCC CHRCH 

INC VARTAB+1 

LDA ARYTAB+1 

CMP VARTAB+1 

BCS ERR 

BNE CONTNXT 


LDA ARYTAB 
CMP VARTAB 
BCS ERR 


CONTNXT CIC 
BCC CHRCH 


* ERREUR, LE MASQUE N'EXISTE PAS 
LA QU N'EST PAS CONVENABLE 


ERR LDY #>ERRMSG 


LDA 4<ERRMSG 
JSR STROUT 
JSR BELL 
JMP BASIC 


LDY MASKLEN 
DEY 

LDA (MASKADR), Y 
CMP 4° 

BNE VRFYMSK2 
INC SPACES 
BNE NXTCHR 
CMP 4'4 

BEQ NXTCHR 
CMP #'. 

BNE ERR 


STY MSKPOINT 





* ATTENTION SI 0 < NOMBRE < 1 
* SI ON À UN ENTIER, ALORS: 
* CHNPOINT = CHAINLE] 


Le = 





BEQ MSKINT 
LDA CHNPOINT 


BNE MSKINT 


LDA CHAINLEN 
STA CHNPOINT 


* SI LE MASK EST ENTIER ALORS: 
* MSKPOINT = MASKLEN 





MSKINT 


LDA MSKPOINT 
BNE VRFTAILLE 
LDA MASKLEN 

STA MSKPOINT 


* CHANPOINT =< MSKPOINT-SPACES ? 


C'EST LA LONGUEUR DE LA CHAINE 


ET SON ADRESSE EN MEMOIRE 


TERMINE, IL FAUT VERIFIER LA SYN 
TAXE DE CE MASQUE 


POUR PASSER À LA PROCHAINE VARIA 
BLE, IL FAUT ALLER LIRE 
7 OCTETS PLUS LOIN 


BOUT DE LA ZONE RESERVEE AUX 
VARIABLES SIMPLES ? SI OUI, ERRE 
UR! SINON, ON PASSE À LA PROCHAI 
NE VARIABLE 


ON CHARGE L'ADRESSE DU MESSAGE D 
"ERREUR 


PUIS ON SAUTE L'AFFICHER 

AVEC BIP L'IGNOBLE 

ET ON REND LA MAIN AU PROGRAMMEU 
R DECU 


POUR SAUTER UNE LIGNE 


PARTIR DE LA FIN 
1 CAR LA POSITION ZERO COMPTE 
PRENDRE UN CARACTERE DU MASQUE 
C'EST UN ESPACE ? 


C'EST UN # ? 


PEUT-ETRE UN . ? 

RIEN DE TOUT CELA: LANCE L'INSUL 
TŒ 

LA POSITION DU POINT DANS LE MAS 
QUE 

PROCHAIN CARACTERE 

ET VA JUSQU'AU BOUT ! 


SI LE PREMIER CARACTERE EST UN . 
ALORS ON NE PEUT PAS AVOIR UN EN 
TIER.., 


LA POSITION DU POINT INDIQUE SI 
ON À UN 
ENTIER OU NON. 
REEL) 


(O=ENTIER, AUTRE= 


OPERATION IDENTIQUE SUR LE MASQ 
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VRFTAILLE LDA MSKPOINT 
SEC 
SBC SPACES 
CMP CANPOINT 
BCC ERR 


#* ATTENTION SI 0 < NOMBRE < 1 
* PARTIE AVANT LE POINT: ESPACES 





LDA #' 


CLRESULT STA RESULT, Y 


BPL CLRESULT 


LDA CHNPOINT 
BNE CLRESULTI 
LDY MSKPOINT 


LDY 4#$1F 
LDA 4'0 
ZERO STA RESULT, Y 
DEY 
CPY MSKPOINT 
BNE ZERO 


LDY MASKLEN 
LDA #$00 


* ATTENTION SI 0 < NOMBRE < 1 
* COUPE LA CHAINE SELON LE MASQUE 
* ET RANGE-LA DANS RESULT ($330) 


LDA CHNPOINT 
BEQ FORM 
LDX MSKPOINT 


LDY CHNPOINT 
DEY 
DEX 


LDA CHAINE, Y 
STA RESULT, X 


BPL FORMAT 
FORM LDX MSKPOINT 
LDY CHNPOINT 
s'. 

STA RESULT, X 
FORMA LDA CHAINE, Y 
BEQ FORMEND 


STA RESULT, X 


CPY CHAINLEN 


CPX MASKLEN 








262 
263 


LDY 4$00 


PRNTUSING LDA RESULT, Y 


CECI POUR SAVOIR SI LA PARTIE EN 
TIERE DU NOMBRE PEUT ENTRER COMP 
LETEME NT DANS LE MASQUE. 

SI C'EST TROP ETROIT, IL FAUT LE 
DIRE 


ON MET DES ESPACES AVANT LE POIN 
T POUR QUE CA SOIT JOLI SI LE MA 
SQUE EST TROP GRAND COTE ENTIER 


SI LE PREMIER CARACTERE DU NOMBR 
E EST UN POINT, ALORS CHNPOINT=0 
ET IL FAUT METTRE UN ZERO AVANT 
LA VIRGULE 


POUR QUE CA SOIT ENCORE PLUS JOL 
I, ON MET DES ZERO À LA PARTIE D 
ECIMALE AU CAS OU LE MASQUE SERA 
IT TROP GRAND 


0 < NOMBRE < 1 ? 


IL FAUT SE POSITIONNER JUSTE AVA 
NT LE . 


DECALE LA PARTIE ENTIERE EN PART 
ANT DU POINT 


POUR TOUS LES CHIFFRES 


ON INSCRIT LE POINT 


ON EST AU BOUT DE LA PARTIE DECI 
MALE ? 

NON ALORS CONTINUE DE DECALER À 
PARTIR 

DU POINT ET VERS LA DROITE 


IL RESTE DES CHIFFRES DANS LA CH 
AINE ? 


SI OUI, RESTE-T-IL DE LA PLACE D 
ANS LE MASQUE ? 





264 ORA 4580 BIT 8=1 POUR AVOIR LE MODE VIDEO 
NORMAL 

265 JSR COUT 

266 INY 

267 CPY MASKLEN 

268 BCC PRNTUSING 





274 LDA LOMEM ON RECOMMENCE À CHERCHER UNE VAR 

275 STA VARTAB TABLE DONC ON FAIT PAREIL QU'AU 
DEBUT... 

276 LDA LOMEM+1 

277 STA VARTAB+1 

278 

279 CHRCHY LDY #0 

280 LDA (VARTAB), Y 

281 CMP #'Y SAUF QUE MAINTENANT C'EST Y 

282 BNE NXTY 

283 INY 

284 LDA (VARTAB),Y 

285 BEQ YTROUVE 

286 

287 * Y PAS TROUVE, SUIVANT... 

288 

289 NXTY LDA VARTAB 

290 CLC 

291 ADC #7 

292 STA VARTAB 

293 BCC CHRCAY 

294 INC VARTAB+1 

295 - 

296 LDA ARYTAB+1 

297 CMP VARTAB+1 

298 BCS RETOUR 

299 BNE CHRCHY 

300 LDA ARYTAB 

301 CMP VARTAB 

302 BCS RETOUR 

303 BCC CHRCHY 

304 

305 YTROUVE  INY 

306 TYA 

307 CC 

308 ADC VARTAB 

309 STA VARTAB 

310 BCC TRANSF 

311 INC VARTAB+1 

312 

313 TRANSF LDA TXTPTR IL FAUT SAUVER LE TXTPTR ACTUEL 

314 STA TXTPTR2 CAR ON VA AVOIR À S'EN SERVIR PO 

315 LDA TXTPTR+1 UR REMETTRE UNE CHAINE DANS FAC 

316 STA TXTPTR2+1 

317 LDA #>RESULT CETTE CHAINE, C'EST RESULT 

318 STA TXTPTR+1 C'EST À DIRE CE QUI SERA AFFICHE 

319 LDA #<RESULT-] CAR TXTPTR POINTE SUR LE DERNIER 

320 STA TXTPTR CARAC.UTILISE. PRENDRE DONC LE P 
RECEDENT. 

321 

322 JSR FIN RANGE RESULT DANS FAC 

323 LDY VARTAB+1 CHARGE L'ADRESSE DE LA VARIABLE 
Y 

324 LDX VARTAB 

325 JSR MOVMF POUR METTRE FAC DEDANS 

326 

327 LDA TXTPTR2 MAINTENANT QUE C'EST TERMINE, ON 

328 STA TXTPTR REPREND LE TXTPTR D'ORIGINE POUR 

329 LDA TXTPTR2+1 QUE LE BASIC NE SE PLANTE PAS 

330 STA TXTPTR+] 

331 

332 RETOUR RTS 





Programme PRINTUSING DEMO 


PRINT CHRS (4) "BLOAD PRINTUSING" 

REM -—-----PROTEGE LA ROUTINE 

HIMEM: 32767 

REM ----"F#FIXE LE VECTEUR USER 

PORE 11,0: PORE 12,128 

REM -------PAS DE VALEUR-RETOUR 

PORE 33064, 9€ 

REM -------EXEMPLES 

TEXT : HOME : INVERSE : 
“: NORMAL : VTAB 5 

PRINT ” CELL L LEE LE LT LI LET ! 1] LS 

VTAB 20: PRINT "LE ‘MASK ERROR' SE PRODUIT CAR LE MASQUEEST TROP ETRO 

IT POUR LA PARTIE ENTIERE DU NOMBRE.*: VTAB 6 

FOR I = 1 TO 12 : READ X : PRINT X; : HTAB 10 

AUUET:Y = USR (X) 

270 M$ = " UE. T:Y = USR (X) 

280 M$ = 7  OOUUAUUE.4UHET:X = USR (X) 

290 PRINT : NEXT 

300 DATA -10,1.25,12.5,23.759812,.1,46.25,57.5,68.75,80,91.2513,-0.1,1234 

5.678950 


110 
120 
130 
140 
150 
160 
170 
150 
190 





PRINT ” PRINT USING / DEMONSTRATION 


200 
210 


220 
260 H$ =" 
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Atlas de géographie historique de 
la France et de la Gaule, par 
Stéphane Sinclair - SEDES (88, bd. 
St. Germain, 75005 Paris) — 260 pages 
— 105 FF. 


L'originalité de cet ouvrage, en dehors 
de son sujet, tient à ce qu'il comporte de 
très nombreuses cartes réalisées à partir 
du Macintosh et sorties en Laser Writer. 
Décidément, celle-ci gagne du terrain 
tous les jours ! 


Gérer le développement de 
l'entreprise (guide Multiplan), par 
W. R. Osgood, D. P. Curtin et F. 
Camelin — Cedic/Nathan — 172 pages — 
240 FF - Traduction/Adaptation. 


Contrôler et optimiser les 
décisions financières (guide 
Multiplan), par J. Alves, M. Selva, B. 
Laur, D. Rigolet et P. Derly - 
Cedic/Nathan — 186 pages — 240 FF — 
Traduction/ Adaptation. 


Dans une présentation claire, ces guides 
sont de bons outils de travail. Le premier 
est en quelque sorte une check-list pour 
la création, à l'aide de Multiplan, d'un 
dossier sur votre entreprise, en vue 
d'une demande de prêt ou d'une 
opération d'augmentation de capital, Le 
second est spécialisé dans la gestion 
financière. Ces deux livres sont 
intéressants par leur aspect pédagogique, 
dans la matière étudiée comme pour la 
constitution des tableaux. 


Apple, modems et serveurs, par 
Alain Mariatte — Editions du PSI — 220 
pages — 130 FF. 


Après une introduction sur la révolution 
télématique, cet ouvrage comporte trois 
parties d'importance comparable : la 
technique des transmissions, les réseaux 
télématiques et les aspects logiciels. 


Ce livre se lit aisément et comporte de 
nombreux exemples de connexion sur 
divers systèmes, ainsi que plusieurs 
petits programmes utilitaires. Un bon 
complément du livre de Jacques 
Bessières, la Téléinformatique 
Personnelle. 





Bibliographie 


Alexandre Duback, Alexandre Avrane 


Apple ProDOS Advanced 
Features for Programmers 

Gary B. Little Prentice-Hall Publishing - 
266 pages - $23.35 (sans disquette) 


Ce livre s'adresse aux programmeurs 
système désireux d'implanter leur 
création dans un environnement 
ProDOS. Il suppose donc un certain 
nombre d'acquis, en particulier de 
l'assembleur 6502 et du ProDOS 
Technical Reference Manuel (je trouve le 
lecture de ce dernier indispensable mais 
aussi insipide que les brochures IBM. 
Où est passé le style d'écriture 
d'Apple ?) 

Il reprend les points fondamentaux des 
protocoles d'interface avec ProDOS : 
appel du MLI, gestion de la carte RAM, 
interpréteurs-système, routine d'inter- 
ruptions, modules d'accès à une 
mémoire de masse ou une carte horloge, 
etc. 


Moins descriptif que Beneath Apple 
ProDOS, il aborde surtout les aspects 
pratiques d'utilisation mais se montre, à 
l'usage, beaucoup plus utile. 


Informatisez votre comptabilité et 
votre gestion, par Bernard Eben - 
Marabout Informatique - 256 pages 
(format livre de poche). 


Cet ouvrage donne un certain nombre de 
conseils sur l'art et la manière de 
programmer la comptabilité d'une 
entreprise, avec un petit programme en 
Basic (où l'auteur gagnerait à découvrir 
l'existence de variables indicées) et un 
programme dBase II de 18 pages (plus 
intéressant). Il aurait été plus intéressant 
de construire le livre tout entier autour de 
la création d'un programme de compta 
personnalisé en dBase IL. 


Macintosh, l'ami du travail et du 
jeu, par Lon Poole — Editions Cedic 
Nathan -— 448 pages - 195 FF 
— Traduction. 


Un bon livre d'introduction au 
Macintosh : une première partie générale, 
une seconde partie avec des chapitres sur 
MacWrite, MacPaint et Multiplan, une 
troisième partie présentant 24 petites 
applications en 90 pages, et enfin un 
dossier de référence. 


Applications graphiques pour 
Macintosh, par Andreas Pfeiffer — 
Cedic/Nathan — 281 pages — 150 FF. 


Six parties : Macintosh et création 
graphique, Interfaces de digitalisation, 
Dessin de précision et CAO, Logiciels de 
mise en page, Générateurs de 
graphiques, De l'utilisation de belles 
images. 

Livre sorti sur Laser Writer dans une 
présentation bien pensée et agréable. Le 
fond est à la hauteur de la forme. Un 
livre à conseiller à tous ceux que les 
applications graphiques intéressent. 


Apple ProDOS  Disk/File 
Handling de Graham Keeler - 
Prentice-Hall Publishing - 353 pages - 
$17.95 (sans disquette) 


Livre d'initiation aux techniques de 
manipulation de fichiers sous ProDOS, il 
s'adresse principalement aux débutants 
ou aux utilisateurs qui ne possèdent pas 
les manuels Apple de programmation 
sous ProDOS. 


Les chapitres décrivant les commandes 
de ProDOS sont complétés par une série 
d'exercices en Basic Applesoft. Puis une 
introduction à la création d'une base de 
données est esquissée, suivie de 
quelques routines utilitaires. 


Utiliser Multiplan, par Erwin 
Schneider — Editions d'Organisation — 
260 pages - Traduction. 


Hélas, encore une traduction effectuée 
par quelqu'un qui ne connaît pas 
Muitiplan ou a bâclé son boulot ! Tous 
les exemples sont présentés à partir d'un 
Multiplan en version française, avec la 
syntaxe de la version américaine : par 
exemple, les arguments des fonctions 
sont séparés par des virgules, et non des 
points-virgules comme c'est le cas dans 
la version française. 


La traduction mise à part, nous 
n'apprécions pas non plus la logique de 
l'ouvrage, qui consiste à présenter les 
liens externes avant même de montrer 
comment faire une somme … 
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"Ah ! le revoilà lui”. Devinez qui 
nous rentre au bercail sur l'air du 
père prodigue ? Eh oui, c'est bien 
lui : Steve Wozniak, le “papa” de 
l'Apple // qui revient dans le giron 
d'Apple à (Cupertino, en 
commençant par racheter la valeur 
de 5 millions de dollars d'actions 
d'Apple. Il en convoite encore 
d'autres pour 15 millions de 
dollars. Au total, un million 
d'actions frappées de la pomme 
pour 20 millions de dollars. Une 
remarque au passage : Wozniak 
ne fait une mauvaise affaire : 
il en avait vendu 3 millions en 
février pour 70 millions de 
dollars. Un petit travail sur la 
calculatrice du Macintosh : il 
rachète 20 dollars des actions 
qu'il avait vendues 23,33 ! 


Pourquoi ce retour ? Officiel- 
lement, parce qu' "Apple va dans 
le bon sens”. Il faut dire que 
depuis quelques temps, Steve 
Wozniak s'intéressait énormément 
aux produits d'Apple. Comme si 
l'Apple // lui manquait. Au point 
de se transformer en homme 
sandwich. Il ne se passait pas de 
semaine, sans qu'on ne voie sa 
photo dans une publicité pour 
roclamer, combien il admirait 
de tout cœur, les produits 
d'Applied Engineering", ou 
s'exclamer que “la série des 
programmes Mouse (les produits 
de Version Soft, vendus aux Etats 
Unis par International Solutions) 
est l'évolution naturelle des 
logiciels pour Apple //, en 
apportant les avantages du Mac à 
l'Apple //". 
En ce mois de janvier frileux, la 
date inscrite sur l'agenda de tous 
les Applemaniaques c'est celle de 
l'Assemblée des actionnaires qui 
apportera comme chaque année 
son lot de nouveautés. Cette 
année, c'est sur le Mac nouveau 
qu'on spéculait. 
Un Macintosh plus puissant (1 
Mégaoctet de mémoire en 
standard, extensible jusqu'à 
quatre, une nouvelle ROM de 
128Ko, intégrant davantage 
d'éléments du système contenus 
jusqu'ici sur la disquette, un 
lecteur de disquettes double face 
de 800Ko, bref, la réponse aux 
souhaits de tous les utilisateurs de 
Macintosh). À dire vrai, on 
révoyait même deux Macintosh, 
‘autre étant encore plus 
révolutionnaire : modulaire en 
trois éléments, avec un clavier 
plus complet, un écran séparé, et 
une unité centrale comportant une 
sortie pour disques durs au 
standard du marché. 


Les possesseurs de Macintosh 
d'avant 1986 ne seraient pas 
laissés pour compte, puisqu'on 
leur proposerait une extension de 
mémoire à un Mégaoctet, 
accompagnée d'un lecteur de 
disquettes double face et de la 
nouvelle ROM. Les prix seraient 
intéressants, puisque l'extension 
de 128Ko à 1 Méga serait 
roposée au même prix que 
‘ancienne extension à 512Ko. A 
ce propos, les Macintosh de 
128Ko ne seront vraisem- 
blablement plus fabriqués. le 


512Ko devenant le bas de gamme 
Macintosh. Ce qui est sûr, c'est 
que le maître mot inscrit au 
fronton d'Apple, c'est désormais 
la compatibilité. 


Compatibilité sur 
le Macintosh 


Compatibilité interne d'abord : le 
Mac serait capable bientôt 
d'émuler parfaitement l'Apple //, 
et comme nous l'annoncions dans 
le précédent numéro de Pom's, 
l'Apple // rendrait la pareille à son 
cadet. 


Compatibilité externe surtout : les 
Apple iraient en enfer et 
s'intégreraient dans l'univers 
impitoyable. Lequel ? Celui 
d'IBM, bien sûr. Tout en 
annonçant une augmentation de 
son budget de recherches de 50% 
(une manière de répondre à ceux 
qui, comme l'auteur de cette 
rubrique, doutent des capacités 
d'Apple, privé de Steve Jobs, à 
développer aujourd'hui l'ordina- 
teur à sortir dans cinq ans), John 
Sculley, le PDG de la firme a 
annoncé en octobre "qu'Apple 
offrirait des produits compatibles 
avec les standards d'IBM". 
Traduisons : il ne s'agit pas de 
construire des compatibles IBM 
sous la marque Apple (bien qu'à 
Cupertino, on s'intéresse, 
paraît-il, énormément à la seconde 
version, avec disque dur, de Mac 
Charlie, cette extension 
transformant le Mac en terminal 
compatible IBM, capable d'avaler 
toutes les disquettes du PC, et de 
métamorphoser un superbe écran 
graphique intelligent en engin 
barbare affichant le sinistre A> du 
MS-DOS). Il s'agit d'intégrer les 
Apple à l'univers IBM, devenu 
que cela plaise ou non celui de la 
majorité des entreprises d'Outre 
Atlantique et de France. Cette 
intégration se réaliserait de deux 
façons : 

1° par les fichiers. Apple et IBM 
seraient capables de travailler avec 
des programmes différents, mais 
de s'échanger les données, ce qui 
éviterait des doubles saisies. Ceci 
grâce à l'adoption par Apple de la 
norme des fichiers développée 
pour l'IBM et baptisée DCA. 


2° par les réseaux : des Apple 
seraient branchés sur les réseaux 
comportant des IBM. Pour cela, 
Apple a annoncé son adhésion au 
standard de réseau en anneau à 
jeton dévoilé par IBM en octobre. 
Ce branchement serait aussi 
possible sur les réseaux d'autres 
constructeurs. À surveiller 
ram le réseau 

therMac pour Macintosh, qui 
pourrait communiquer facilement 
avec le réseau EtherNet développé 
PE le même constructeur pour les 


L'année 1986 apportera aussi aux 
amateurs M à de bonnes 
nouvelles sous forme de baisses 
de prix. Celui de l'imprimante 
Laserwriter avait déja baissé (sous 
la pression de la concurrence) de 
1000 dollars aux États Unis à la 
fin 1985 pour passer à 6000 


dollars. Les Apple //c étaient 
tombés au-dessous de 10000,00 
Francs dès la fin de l'année pour 
une configuration "opération- 
nelle". On pouvait même trouver 
pour moins de 8000,00 Francs 
une configuration comprenant un 
Apple //e, un lecteur et un 
moniteur. Il est vraisemblable que 
ce n'est qu'un début. Et que des 
baisses de prix s'appliqueront 
encore à toute la gamme Apple. 
Pour le même prix, on aura peut 
être cette année en plus une 
imprimante. Qui s'en plaindrait? 
En attendant, le panorama des 





chaleureux supporters de l'Apple 
IL. 


Chute du prix des 
mémoires du Mac 


En France aussi, la baisse du prix 
des mémoires a contaminé le Mac. 
En décembre, l'extension de 128 
à 512Ko était ainsi couramment 
proposée à 2 500,00 Francs et le 
passage de 512 à 1,5 Mégas à 
moins de 8 000,00 F. 


Micro- 


informations 


Jean-Michel Gourévitch 


matériels et logiciels lancés à la fin 
1985 pour les Apple s'avère 
particulièrement riche. Comme 
une manière de pied de nez aux 
concurrents du style Atari ou 
Amiga qui voudraient déja hériter 
du marché. 


Mémoire : toujours 
plus ! 


Il est bien loin le temps où 16 
Kilo-octets suffisaient far la 
comptabilité d'une banque. 
Désormais, les exigences de 
mémoire pour les utilisateurs de 
micro-ordinateurs se chiffrent en 
Mégaoctets. Reprenons les 
épisodes précédents : dans le 
numéro 21, Pom's annonçait 1,5 
Mégaoctets casés sur une carte de 
l'Apple //e. Record battu par 
Applied Engineering avec 3 
Mégas pour 1700 dollars. Qui dit 
mieux ? Cette course à la mémoire 
ne se fait pas sans dégâts. 
Pendant quelques temps, 
l'absence d'Apple avait laissé le 
champ libre à quelques pionniers 
comme Applied Engineering. 
Ceux-ci ont développé des cartes 
s'installant dans le slot auxiliaire 
de l'Apple //e. Or voici qu'Apple 
a récemment sorti sa carte 
d'expansion. Et que celle-ci 
s'installe dans un des slots 
normaux de l'Apple. 

Conséquence : les programmes 
comme AppleWorks où l'on a 
installé un "patch" pour 
reconnaître la mémoire 
supplémentaire des fabricants de 
cartes ne reconnaissent pas celle 
d'Apple. Plus grave : les 
concepteurs de logiciels écriront 
de préférence des programmes 
pour la carte d'Apple, et ceux-ci 
ne pourront utiliser les cartes 
concurrentes. Si ce malentendu 
n'est pas réparé, il risque de faire 
du vilain chez les constructeurs 
d'extensions et cartes en tous 
genres qui sont pourtant les plus 


Disques durs 


Pour l'Apple // d'abord. Avec 
cette fois, un disque dur interne 
américain proposé par SCS. Il est 
contenu sur une carte s'installant 
sur un des slots et disponible en 
version 10 Mégas (S1300s) et 20 
Mégas ($1600). Un pari : on n'a 
pas fini de voir se développer de 
tels disques durs "en carte” pour 
l'Apple // et leur prix baisser. 


Et le Mac ? 


En attendant le disque dur de 20 
Mégas Apple, Micro Expan- 
sion, a proposé un disque dur de 
5 Mégas pour le Mac, pour moins 
12 060,00 F (qu'il est possible 
d'échanger ultérieurement contre 
un disque dur de plus grande 
capacité). 

Mais, l'offensive a été ouverte sur 
le front des lecteurs double face. 
Premier à tirer, le français 
P-Ingénierie qui s'est avisé à la 
fin 1985 que le lecteur double face 
de 800Ko Unidisk pour l'Apple // 
pouvait parfaitement fonctionner 
sur le Mac (à condition de réaliser, 
un bricolage très simple 
court-circuitant la sortie “de 
chaînage" de ce lecteur). Restait 
cependant un problème : comment 
formatter des disquettes 
double-face ? Avec le nouveau 
Mac, ce sera facile, car les 
instructions sont dans la nouvelle 
ROM. Et en attendant ? 
P-Ingénierie a tout simplement 
écrit un me ARCS de formattage des 
deux côtés de la disquette et 
décidé de vendre des disquettes 
double face Fuji pré-formattées. 
Pour les utilisateurs, le coût des 
disquettes était élevé, mais la 
modification intéressante 
800Ko, en utilisant un Unidisk, 
cela permet de caser un Switcher 
et plusieurs applications, ou 
d'avoir un gros système (avec 
accessoires de bureaux et polices 
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de caractères). Reste que cette 
opération était forcément limitée 
dans le temps : les nouveaux Mac, 
présentés ce mois ci auront en 
standard les 800Ko. 

A noter d'ailleurs que plusieurs 
firmes d'Outre Atlantique se sont 
également lancées dans les 
lecteurs double face, c'est le cas 
de Mirror Technologies avec 
le Mirror Magnum de 800Ko, 
et de Dataspace Corporation 
avec un autre lecteur double face. 


Des gadgets 


La micro-informatique n'y 
échappe pas. Aux États Unis, un 
constructeur vend ainsi une table 
spéciale pour le Mac : la 
MacTable de ScanCoFurn, 
spécialement construite pour 
abriter le Mac, l'Imagewriter, etc. 

Un fabricant a trouvé moyen de 
fournir un écran LCD pour 
l'Apple //c, plus lisible que celui 
d'Apple, c'est le C Vue de 
Roger Coats vendu avec une 
batterie pour alimenter l'Apple //c 
pour 600 dollars. 

Plus intéressante l'Image Blue 
de Image Communications. 
Cet appareil (mi-scanner, mi 
imprimante) permet simulta- 
nément de “scanner” (c'est à dire 
de transformer lignes ou 
caractères en données 
informatiques) un texte ou un 
dessin et de l'entrer dans un 
programme du Macintosh (4 
pages graphiques peuvent être 
stockées sur une disquette), puis 
de l'imprimer. Prix : 1295 
dollars. À noter que cette machine 
est également compatible avec 
l'IBM PC. 

Enfin, le Soft Strip de Cauzin 
pourrait changer la vie de tous les 
amateurs qui recopient des 
programmes dans des revues 
spécialisées de micro- 
informatique. C'est un lecteur de 
code qui se branche sur un micro 
(et notamment sur l'Apple //) par 
l'entrée RS232. Les listings de 
programmes, graphiques, sons, 
etc, peuvent être imprimés sous la 
forme d'un ruban de code barre. 
Le lecteur lit ce code et le 
retranscrit dans l'ordinateur. Son 
prix n'est que de 199 dollars, et il 
suffit de 30 millisecondes pour 
lire un ruban. Les éditeurs 
américains étudient la possibilité 
de publier leurs programmes sous 
cette forme dans leurs revues : 
plus besoin d'acheter les 
disquettes, ni d'entrer les données 
au clavier... On rêve déja de livres 
d'école comportant des "soft 
strips". 


Logiciels : à 
l'Ouest du 
nouveau 


Voici en effet une avalanche de 
nouveaux logiciels venus des 
États Unis. Pour l'Apple // 
d'abord avec Catalyst 3,0. Ce 
logiciel permet d'installer des 
logiciels protégés sur un disque 
dur et de passer de l'un à l'autre. 
Le voici désormais distribué par 
Apple et livré en version souris et 
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graphique, utilisable avec le 
nouvel Unidisk de 3,5 pouces. 
Une impression : il ressemble 
bigrement au fameux MouseDesk 
de Version Soft. Serait-ce donc le 
même produit sous un autre 
nom ? 

Voici ensuite, réservée aux initiés 
la version 6.0 de Locksmith 
d'Alpha Logic. Copie rapide en 
huit secondes seulement... 

Voici enfin Fantavision de 
Broderbund. Un extraordinaire 
logiciel de création de dessins 
animés. La seule méthode pour 
donner de la vie à un dessin. On 
le dessine, et il s'anime, les 
ombres s'ajoutent, on le fait 
bouger sur l'écran. Fantavision 
permet d'importer des écrans 
haute résolutions d'autres 
programmes. 


En France aussi 


En France, aussi, les créateurs de 
logiciels pour Apple // ont mis la 
main au clavier. L'un d'eux, MG 
Informatique, propose un 
additif s'installant sur 
Appleworks et permettant de 
l'utiliser avec une souris. Un 
autre, Priam, propose un 


_ traitement de texte baptisé Saphir 


intégrant des fonctions 
mathématiques et des calculs 
conditionnels, permettant de 
travailler simultanément sur deux 
documents, d'obtenir une double 
justification avec césure 
automatique et de visualiser le 
document final. Le tout pour 
moins de 2 000,00 F avec en 
prime mailing multicritère et 
LH -PRRE : une manière d'exploit. 
nfin, VersionSoft, qui a 
fusionné avec Controle X, 
propose une rafale de nouveaux 
logiciels Version Tel, 
permettant de transformer en 
Minitel un Apple // équipé d'un 
modem (650,00 F), Arcane, 
pour prédire l'avenir (680,00 F) 
et pour les enfants des Puzzles et 
des Coloriages (360,00 F 
chaque). 
Pour les professionnels du 
bâtiments, Architrion de 
Gimeor permet de créer des 
objets en trois dimensions. Dans 
chaque bloc, on peut créer des 
ouvertures et y insérer des 
huisseries, etc. Ce logiciel 
spécialement étudié pour les 
professionnels du bâtiment a été 
primé par l'Agence de 
l'Informatique et le Ministère de 
l'Urbanisme. Prix : 15 000,00 F. 
Ce n'est pas donné. 


Dose pour 
e 
Mac 


Avec pour ceux qui utilisent le 
Macintosh comme outil de 
publication, de nouvelles versions 
des logiciels d'édition : Ready 
Set Go version 2,0 distribué 
par BIP, et Mac Editeur 2,0 
distribué par Feeder. Tous 
permettent désormais d'importer 
des textes saisis avec un 
traitement de texte comme 
Macwrite ou Word. 


Au rayon des utilitaires, Disk 
Ranger de Mainstay, 
permettant de réaliser facilement 
des étiquettes pour les disques, et 
de se constituer un catalogue (prix 
: 50 dollars). Et surtout Tempo, 
d'Affinity, un éditeur de 
macros, permettant d'automatiser 
des commandes, en prévoyant des 
pauses pour les entrées de textes, 
la création de zones de dialogue, 
des branchements logiques, etc. 
pour 99 dollars. Une seule 
commande à effectuer, et 
l'ordinateur prélèver des 
informations dans un programme, 
les inclut dans un tableur, les 
compare aux mêmes résultats 
d'une période précédente, en fait 
un graphique et expédie le tout 
modem à un analyste. De 
Vendée, arrive une comptabilité 
générale simple : Mélusine de 
Brocéliande. 

Pour les professionels de la 
chimie voici Mac Chemistry de 
Fortnum Software comportant 
des illustrations, un attirail de 
laboratoire permettant de réaliser à 
l'écran des titrages d'acides et 
bases, un utilitaire pour effectuer 
des annotations et une table 
périodique de références. Prix : 
145 dollars. 


Des jeux pour le 
Mac 


Le Mac peut aussi être un objet 
futile. La preuve : MacInooga 
Choo Choo de Fortnum 
Software. Réinventer le train 
électrique sur micro, il fallait le 
faire non ? C'est fait. Avec ce 
programme permettant de dessiner 
un circuit ferré avec terrains, rails, 
aiguillages et d'y faire circuler des 
trains. N'est ce pas le journaliste 
Daniel Garric qui a dit que la 
micro informatique était le train 
électrique des adultes des années 
1980 ? Prix 39 dollars. Wizardry 
était l'un des best sellers des jeux 
d'aventure pour l'Apple //. Le 
voici désormais pour le Mac : 
c'est Mac Wizardry de Sir 
Tech. Prix 60 dollars. 
Strategic Conquest de PBI est 
un jeu de simulation de guerre 
comprenant 15 niveaux de 
difficultés et deux milliards de 
cartes du monde possible. Déja vu 
de Mindscape est un jeu 
d'aventure mélangeant texte et 
graphique. Deluxe Music 
Construction Set d'Electro- 
nic Arts est l'un des plus 
sophistiqués des programmes 
permettant de faire de la musique 
sur le Mac. Quant à Enchanted 
Scepters de Silicon Beach 
Software, c'est un classique jeu 
d'aventure mélangeant texte et 
graphiques, mais y ajoutant des 
éléments sonores inédits. À noter 
enfin un remarquable jeu de 
boxe: Sierra Boxing 
Champion- ship de Sierra On 
Line. On peut jouer contre 
l'ordinateur en choisisant son 
adversaire parmi une kyrielle de 
grands boxeurs. On peut aussi les 
faire jouer entre eux, et organiser 
un championnat avec Cassius 
Clay. Le jeu a été réalisé par 


: d'authentiques spécialistes, et les 


boxeurs ont les caractéristiques de 
leurs vrais modèles. 


Adresses 


Applied Engineering 
P.0. BOX 798 Carrollton, TX 
75006 


SCsS 
301 S. Washington Ave. P.0O. 
Box 2767,Titusville, FL327081 


P-Ingéniérie 
226 Bd Raspail, 75014 Paris 


Mirror 
Technologies 2209 Phelps Road 
Hugo, Minnesota 55038 


Data Space Corp 
205 Riviera Drive, Markham 
Ontario Canada L3R2L6 


Micro Expansion 
234 route de Genas 69003 Lyon 


ScanCoFurn 
Tél aux USA : 1.800 722 6263 


Roger Coats 
Tél aux USA : (619)274 1253 


Image Communications 
640 West Putnam Av.P.O. Box 
4809 Greenwich CT 06836 0086 


Cauzin Systems 
835 South Main Street Waterbury 
CT 06706 


Alpha Logic Business 
Systems 

4119 North Union Road 
Woodstock IL 60098 


Broderbund 
17 Paul Drive San Rafael CA 
94903 


MG Informatique 
BP 1034 54521 Laou Cédex 


Priam 
53 rue de Paris 92100 Boulogne 


Version Soft 
93 rue Lauriston, 75016 Paris 


BIP 
13 rue Duc, 75018 Paris 


Feeder 
BP 781 13742 Vitrolles Cédex 


Mainstay 
28611B Canwood St Agoura 
Hills CA 91301 


Affinity 
1050 Walnut Street Suite 425 
Boulder CO 80302 


Brocéliande Productions 
BP 162 85105 Les Sables 
d'Olonne 


Fortnum Software 
31W Sierra Madre Blvd Sierra 
Madre CA 91024 


Gimeor SA 
39 quai d'Alsace 59500 Douai 


Sir Tech 
6 Main Street Ogdensburg N.Y. 
13669 


PBI 
Software 1111 Triton Drive 2nd 
Floor Foster City CA 94404 


Mindscape 
3444 Dundee Road Northbrook Il 
60062 


Electronic Arts 

2755 Campus Drive San Mateo 
CA 94403 

Silicon Beach Software 


P.O. Box 261430 San Diego CA 
92126 
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Olivier Herz, Alexandre Avrane, Bruno Fénart 


Voici deux petits programmes 
Basic pour recopier sur 
imprimante les écrans texte 40 ou 
80 colonnes. Lors de la mise au 
point de programmes, ils peuvent 
rendre des services : il n'est alors 
pas nécessaire de se préoccuper 
immédiatement des éventuelles 
questions de compatibilité des 
routines en assembleur (HCT. 
OBJ déjà parue dans Pom's, par 


exemple). 


Programme COPIE40 


10 PRINT CHR$ (4);"PR#l": 
FOR Y = 1 TO 24: FOR X = 
1 TO 40:A$ = CHR$ ( SCR 
N(X=.1,2 % (X =,1)) 
(16 * SCRN(X - 1,2 * ( 
Y - 1) + 1))):B$ = B$ + 
A$: NE XT X: PRINT B$:B$ 

NEXT Y: PRINT CHR 

$ (4); "PR#0" 


LATE 
= L 


Programme COPIE80 


10 PRINT CHRS (4);"PR#l": 
POKE - 16383,0: FOR Y = 
1 TO 24: FOR X = 1 TO 40 
: POKE - 16299,0: GOSUB 
20: POKE - 16300,0: GOS 
UB 20: NEXT X: PRINT BS; 
:B$ = "": NEXT Y: POKE - 
16384,0: PRINT CHRS$S (4) 
; "PR#3": END 

20 ÀA$ = CHRS$ ( SCRN( (X - 
1),2 % (Y =212)) +: (16 * 
SCRN{ (X°- 1),2 * {(Y = 1 
) + 1))):B$ = B$ + A$:R 
ETURN 


J-M Roulon, Les Cayes sous 
Bois 


A vendre 2 Apple /!!/ (128Ko et 
256Ko) avec deux lecteurs 
chacun. Parfait état de marche et 
prix intéressant. Cause : achat 
Macintosh. Contacter M. Claude 
Lamoureux au (1) 46.87.26.12. 


Message à Yves Martin 


Vous nous avez annoncé 
votre déménagement. Si 
vous n'avez pas reçu notre 
lettre, prière de nous 
contacter. 


Le programme ‘Gestion de 
fenêtres’ souffre de quelques 
défauts de jeunesse. Tout 
d'abord, deux erreurs typo- 
graphiques : 

&C NF, MG, MD, ME, MB (,CH) en 
mode création et 


& LET NV, VT, HT, LN, NI, (,IL) 
pour les menus (signalé dans 
Pom's 21). 

J'ai constaté que le caractère 
délimiteur défini lors de la 
création d'une fenêtre n'était pas 
sauvegardé. Je vous propose 
donc ci-dessous une petite 
modification au programme : 


La méthode est la suivante : 


]BLOAD WINDOW 
JCALL -151 
*8A00:00 89 
*8E78:4C 48 89 
*8F66:4C 23 89 
*8F70:4C 23 89 
*8784:4C 2C 89 
*905D:4C 3A 89 


Entrer le listing ci-dessous : 
*8900:4C EE 89 C6 20. 


Puis sauvegarder le nouveau code 
objet : 


BSAVE WINDOW,A$8900,LS$ODO0 


Patch WINDOW LAHY 


8900- 1C EE 89 JMP  $89EE 
8903- C6 20 DEC  $20 
8905-  E6 21 INC  $21 
8907- E6 21 INC  $21 
8909- C6 22 DEC  $22 
890B-  E6 23 INC  $23 
890D- 60 RTS 

890E- E6 20 INC  $20 


8910- C6 21 DEC S21 
8912- C6 21 DEC $21 
8914- E6 22 INC $S22 
8916- C6 23 DEC $23 
8918- 60 RTS 

8919- 20 0E 89 JSR $890E 
891C- 20 9E 8D JSR S8D9E 
891F- 60 RTS 

8920- EA NOP 

8921- EA NOP 

8922- EA NOP 

8923- 20 03 89 JSR $8903 
8926- 20 F1 8E JSR $8EF1 
8929- 4C 73 8F JMP $8F73 
892C- AD 4E 8A LDA $8A4E 
892F- FO 03 BEQ $8934 
8931- 20 0E 89 UJSR $890E 
8934- 20 9E 8D JSR S$S8D9E 
8937- 4C 87 8F JUMP $S8r87 
893A- AD 4E 8A LDA S$S8A4E 
893D- FO 03 BEQ $8942 
893F- 20 0E 89 JSR $890E 
8942- 20 9E 8D JSR S$S8D9E 
8945- 4C 60 90 UMP $9060 
8948- AD 53 8A LDA $8A53 
894B- C9 03 CMP #503 
894D- 90 11 BCC $8960 
894F- 38 SEC 

8950- AD 55 8A LDA $8A55 
8953- ED 54 8A SBC $8A54 
8956- C9 03 CMP #$503 
8958- 90 06 BCC $8960 
895A- AD 54 8A LDA $8A54 
895D- 4C 7B 8E JMP S$S8E7B 
8960- 4C BO 8E JUMP $8EB0 
Claude LAHY, Villejuif 
Icare… 


En plus des précisions apportées 
dans le courrier des lecteurs du 
Pom's 19, je voudrais apporter 
les précisions suivantes : 

+ &PROUT x envoie le code 
ASCII x, x pouvant être 
supérieur à 128 contrairement à 


CHRS$(x)... Pratique pour 
commander l'imprimante. 
Exemple : 


&PROUT27,52, "TOTO" : &PROUT2 
7,53,"toto" donne sur une 


Epson : 


TOTOtoto 
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+ Le curseur vraiment bizarre de 
HGR PRINT peut-être corrigé 
par le patch suivant : 


8E51: E6 4E DO 11 E6 4F B1l 
26 49 FF 91 26 B1 28 AA A5 
1F 91 28 86 1F A2 00 CA DO 
FD EA EA EA 2C 00 CO 10 DE 


Pascal Cantot, La Courneuve 


La 36ème piste, suite. 


Une précision sur l'article de B. 
Toméno du Pom's 21 : 

La modification indiquée ne suffit 
pas pour que le DOS utilise les 
secteurs libérés sur la piste $11. 
Heureusement, seul un petit patch 
du DOS est nécessaire. À l'aide 
de votre éditeur de secteur 
préféré, il convient de modifier 
l'octet $92 du secteur 1 de la piste 
2 : mettre $A9 au lieu de $69. Au 
niveau de l'assembleur, cela 
revient à remplacer en $B291 : 


CLC pæ CIC 
ADC #$11 LDA #$11 
STA $B3EB STA $B3EB 


Le code original ajoute à $11 la 
valeur du déplacement (+1 ou -1) 
pour passer à la piste suivante. 
Selon le sens, on commençait 
donc en piste $12 ou $10. Le 
patch permet de commencer en 
$11. 


Un second point : pourquoi se 
limiter à 36 pistes ? Mon 
Duo-disk en tolère très bien 40. 
Pour essayer, il suffit de faire : 

CALL -151 

BEFE :28 

INIT HELLO 


G. Jacquet, Chatillon la Palud 


Encore un mot sur la saisie de 
date en Pascal (par Eric Pascual, 
Pom's 16 page 53) ! Pour 
l'utiliser avec Pascal 1.2, la 
constante ADRDATE doit être: 

e -21252 avec la version 64Ko 

+ -1]8342 avec la version 128Ko 
Reportez-vous à la lettre de 
Christian Bellot (Pom's 18, page 
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77), pour les autres détails 
d'implantation. 


Voici par ailleurs un petit patch 
permettant aux possesseurs de 
compatibles Apple /! (genre 
Franklin ou Basis 108) de charger 
ProDOS. En effet, celui-ci vérifie, 
au moment du chargement, le type 
d'Apple utilisé et, dans le cas qui 
nous intéresse ici, refuse de 
poursuivre le boot. Il faut 
rechercher les codes suivants, à 
l'aide d'un éditeur de secteurs, 
puis les modifier : 


LDX $FBB3 (AE B3 FB) devient 
LDX #$EA, NOP (A2 EA EA) 


ADC #$0B, BNE +5 (69 OB DO 
03) devient ADC #$0B, NOP, 
NOP (69 0B EA EA) 


Ce patch ne fonctionne pas sur 
certains logiciels (comme 
AppleWorks) qui tentent, 
indépendemment de ProDOS, de 
déterminer s'il s'agit d'un lle ou 
lc. 


Hubert L'HOPITAL, 93300 
Aubervilliers 


Merci pour ces informations ! 


Je possède un Apple lle avec une 
carte 80 colonnes et un lecteur de 
disquettes. J'ai essayé de 
convertir des programmes DOS 
3.3 en ProDOS avec l'utilitaire 
CONVERT fourni par Apple. 
Malheureusement, il me faudrait 
deux lecteurs. Comment faire ? 


Olivier Sonderer, 30490 Montfrin 


Trois solutions possibles: 


+ La plus facile : un grand 
sourire à votre distributeur pour 
qu'il vous laisse convertir vos 
programmes dans sa boutique en 
une après-midi. 

+ La plus compliquée : vous 
chargez le programme de 
conversion paru dans Pom's 16, 
en sortez par la troisième option et 
vous obtenez ainsi le DOS 3.3 et 
ProDOS simultanément actifs en 
mémoire ; il ne reste qu'à chargez 
et sauvez individuellement chacun 
de vos fichiers. 


+ La plus rapide: vous exécutez 
le programme d'initialisation 
d'une disquette mixte DOS 
3.3/ProDOS (Pom's 18) ; la 
conversion est alors réalisée en 
trois étapes : alimentation de la 
disquette par FID, conversion des 
fichiers par CONVERT, puis 
transfert de ceux-ci par FILER 
vers la disquette définitive. 


Est-il possible de sortir, sur écran 
ou imprimante, des fichiers 
source de programmes en 
assembleur quand on ne possède 
ni l'assembleur idoine, ni de 
traitement de texte ? 


Philippe DEMERAUX, 43360 
ARVANT 


+ L'affichage des sources 
d'assembleurs est possible sous 
ProDOS par la commande 
additionnelle TDUMP (Pom's 
20). 

+ Sous DOS 3.3, les sources 
stockés sous forme de fichiers 
TEXT sont accessibles par le 
TDUMP/DOS 3.3 (Pom's 12). 


+ S'ils sont stockés sous forme 
de fichiers binaires (par exemple 
Big Mac ou Merlin), il est 
nécessaire de patcher le DOS pour 
qu'il autorise la lecture : 

A7C9- AND #$7F (29 7F) 
devient LDA #$00 (A9 00) 


c'est à dire : POKE 42953,169 : 
POKE 42954,0 


+ En revanche les fichiers de 
Lisa, stockés sous un format très 
particulier du DOS 3.3, et de plus 
encodés (les instructions sont 
conservées sous forme de tokens, 
comme le fait l'Applesoft), sont 
alors inaccesibles. 

Un simple PR#1 permet de sortir 
sur imprimante. 







EDIGRAPH (Pom's 21) 









que le 'LOMEM:' du HELLO ne soit pas 
exécuté. 
Ainsi, vous pourez faire : 
RUN EDIGRAPH 

















Lorsque vous bootez sur la disquette Pom's 
n° 21, faites CTRL-C dès la mise en route pour 


sans obtenir un cruel Out Of Memory Error. 


Pat 


at 


Bon de commande 


Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 8) 
(cf. Pom's n° 10) 
(cf. Pom's n° 11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf. Pom's n° 19) 
(cf. Pom's n° 21) 
(cf. Pom's n° 21) 
(cf. Pom's n° 21) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 


Revues, disquettes 


Revues 4 7 8 35,00 F 
Revues 9 10 11 12 13 14 15 16 17 18 19 20 21 22 40,00 F 


Disquettes ‘Apple II, //e, //c 
12:52144%7S: 16: 9e {8 9: 10: 11: 12 
13 14 15 16 17 18 19 20 21 22 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 AS 19 20 21.27 80,00 F 
Mac ‘A’ 80,00 F 


Abonnements Pour 6 numéros à partir du L_] 


Abonnement à la revue seule 200,00 F 
Abonnement revue + disquettes Apple I, //e, //c 480,00 F 
Abonnement revue + disquettes Macintosh 600,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 


Imprimerie Rosay. 94300 Vincennes.lmprimé en France. Dépôt légal : Janvier 1986. N° 5268 
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